with SQLDataSet1 do
begin
CommandText := 'select * from tmp';
open;

while not Eof do
  begin
   memo1.Lines.Add( SQLDataSet1.Fields[0].AsString);
   next;
  end;
end;