[Delphi7] concatenazione stringhe in un ciclo

[elsinore77]

Ciao a tutti, sto diventando matto per una banalità!

Io ho una query inserita in un ciclo while che mi tira fuori un set di dati....

TZQuery := ObjUtils.GetRecordSet(SQLReportExp_select_societa) ;
with TZQuery do
begin
while not TZQuery .isEmpty and not TZQuery .Eof do
begin
nome_soc := FieldByName('NAME').AsString;
next;
end;
end;

ecco io avrei la necessità di concatenare i dati in un'unica stringona...... se metto una variabile nel ciclo ovviamente mi viene sovrascritta ogni volta....qualcuno mi può dare una mano?

grazie!