1Procedure blablabla;
2var i:integer;
3begin
4..... {some code here}
5
6SQLQuery1.Open;
7 for i := 0 to SQLQuery1.FieldCount-1 do
8 begin;
9 Memo1.Lines.Append(SQLQuery1.Fields[i].DisplayName);
10 end;
11 SQLQuery1.Close;
12
13
14.... {some code here}
15
16end;
17