like this? //property maybe wrong
for i:=0 to table1.fieldcount - 1 do
begin
xx := table1.fields.filedname;//string
xx := table1.fileds.filedkind;//tfiledkind??
end;
query1.clear;
query1.sql.add('select name from libary');
query1.open;
while not query1.Eof do
begin
memo1.Lines.Add(query1.FieldByName('name').asstring);
query1.Next;
end;