Delphi中ADODataSet如何循环输出每一条记录

strTemp:string ;
begin
  ADODataSet1.CommandText := 'select * from table';    
  ADODataSet1.Open;
  ADODataSet1.first
  while not ADODataSet1.eof do
      begin
        strTemp:= ADODataSet1.FieldByName('字段').AsString;
        ShowMessage(strTemp);
        ADODataSet1.Next;
      end;