Как получить результат выполнения запроса SELECT * FROM [MYTABLE] FOR XML RAW в виде XML (string) на клиенте с помощью ADO?

Uvw, ya rabotayu v Delphi, tak ne prohodit, daze esli rabotat napriamuyu s ADO COM object (2.6)

Nize primer na Delphi (ne rabotaet)

var
AConnection: _Connection;
ACommand: _Command;
AStream: _Stream;
AnInStream : _Stream;
AnOutput: OleVariant;
sSql : string;
RecCount: OleVariant;
begin
sSql := '<ROOT xmlns:sql=''urn:schema-microsoft-com:xml-sql''>';
sSql := sSql + '<sql:query>SELECT * FROM rtLoginInfo FOR XML RAW</sql:query>';
sSQl := sSql + '</ROOT>';
AConnection := CoConnection.Create;
AConnection.Open(CON_STR,EmptyStr,EmptyStr,0);
ACommand := CoCommand.Create;
// ACommand.CommandText := 'SELECT * FROM rtLoginInfo FOR XML RAW';
ACommand.CommandText := sSql;
ACommand.Dialect := '{5D531CB2-E6Ed-11D2-B252-00C04F681B71}';
ACommand._Set_ActiveConnection(AConnection);
AStream := CoStream.Create;
AStream.LineSeparator := adCRLF;
AnInStream := CoStream.Create;
AnInStream.Open(EmptyParam,adModeUnknown, adOpenStreamUnspecified,'','');
AnInStream.WriteText(sSQl, adWriteChar);
AnInStream.Position := 0;
ACommand.Set_CommandStream(AnInStream);
AStream.Open(EmptyParam,adModeUnknown, adOpenStreamUnspecified,'','');
ACommand.Properties.Item['Output Stream'].Value := AStream;
ACommand.Properties.Item['Output Encoding'].Value := 'UTF-8';
RS := ACommand.Execute(RecCount, EmptyParam, adExecuteStream);
AStream.Open(EmptyParam,adModeUnknown, adOpenStreamUnspecified,'','');
AStream.Position := 0;
Edit1.Text := AStream.ReadText(AStream.Size);