var
linhas: string;
begin
FDQuery1.First;
while not FDQuery1.Eof do
begin
linhas := linhas + FDQuery1.FieldByName('nome').AsString + ', ';
FDQuery1.Next;
end;
end;
Até onde entendi de sua pergunta, o código acima irá atender sua necessidade por concatenar o resultado da Query numa string. Você também pode fazer isso numa StringList, segue o código:
var
linhas: TStringList;
begin
linhas := TStringList.Create;
FDQuery1.First;
while not FDQuery1.Eof do
begin
linhas.Add(FDQuery1.FieldByName('nome').AsString);
FDQuery1.Next;
end;
end;