Obtendo nomes dos campos de uma tabela

{Inclua na seção uses: dbTables, Classes, Forms A função abaixo obtém os nomes de todos os campos de uma tabela do banco de dados.}

procedure tbGetFieldNames(const DBName, TblName: string;
List: TStringList);
var
I: integer;
begin
List.Clear;
with TTable.Create(Application) do
try
DatabaseName := DBName;
TableName := TblName;
with FieldDefs do begin
Update;
for I := 0 to Count -1 do
List.Add(Items[I].Name);
end;
finally
Free;
end;
end; {Usa-se:

- Coloque um TMemo e um TButton no Form;

- Coloque o código abaixo no evento OnClick do Button:}

procedure TForm1.Button1Click(Sender: TObject);
var
List: TStringList;
begin
List := TStringList.Create;
try
tbGetFieldNames(Edit1.Text, Edit2.Text, List);
Memo1.Lines.Assign(List);
finally
List.Free;
end;
end;