пытаюсь выполнить sp_help Tratata и вернуть результат выполнения, часть возвращается, но в конце получаю ошибку, что ADOQuyery1.Recordset закрыт.
Что не так? А может вообще надо как-то по другому?
Помогите.

procedure TForm1.AcRunSQLExecute(Sender: TObject);
Var
RecAff, I, iError: Integer;
TempDataSet: TCustomADODataSet;
S: String;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(EditSQL.Text);

try
ADOQuery1.Open;
except
ADOQuery1.ExecSQL;
end;

TempDataSet :=ADOQuery1 ;
while TempDataSet <> nil do begin

{Field names}
TempDataSet.First;
S:='';
For I:=0 to TempDataSet.Recordset.Fields.Count-1 do begin
S:=S + (TempDataSet.Recordset.Fields .Name)+ #9;
end;
Memo1.Lines.Add(S);
Memo1.Lines.Add('--------------------------------');

{Field values}
while not TempDataSet.Eof do begin
S:='';
For I:=0 to TempDataSet.Recordset.Fields.Count-1 do begin
S:=S + VarToStr(TempDataSet.Recordset.Fields.Value) + #9;
end;
Memo1.Lines.Add(S);
TempDataSet.Next;
end;

if TempDataSet <> ADOQuery1 then begin
TempDataSet.Free;
end;
TempDataSet.Recordset := TempDataSet.NextRecordSet(RecAff);
Memo1.Lines.Add(#13#10);
end;
end;