procedure TForm1.Button1Click(Sender: TObject);
var
Table1 : TTable;
begin
Table1 := TTable.Create(nil);
try
Table1.DatabaseName:='DBDEMOS';
Table1.TableName:='items.db';
table1.Active:=true;
while not Table1.Eof do begin
Memo1.Lines.Add( Table1.Fieldbyname('Qty').asstring );
Table1.Next;
end;
finally
Table1.close;
Table1.Free;
end;
end;