procedure readCompanyTable; var aString : string; begin; aString := ''; getCompanyTable.First; while not getCompanyTable.Eof do begin aString := aString+getCompanyTable.FieldByName('CO_NAME').asString+' '; getCompanyTable.next; end; message_dlg(aString); end;