mssql connection nonVcl

[TheGame1492]

hi,

ist es möglich mit einer kleinen Abwandlung der folgenden Beispielfunktion zu einem MS-SQL zu connecten?
Ich möchte wenn möglich Kein ADO, dbexpress, zeos usw. benutzen

Delphi-Quellcode:

.
procedure InitSockets;
var
  data: WSAData;
begin
  WSAStartUp( MakeWord(1,1), Data );
end;

.
.
.

function Connect(IP, user, pass: pchar ): result;
var
  FSocket: TSocket;
  sockAddr: TSockAddrIn;
begin
    result := false;

    FSocket := socket( AF_INET, SOCK_STREAM, IPPROTO_IP );
    if FSocket <> invalid_socket then
    begin
      SockAddr.sin_family := AF_Inet;
      SockAddr.sin_port := htons(1433);
      SockAddr.sin_addr.S_addr := inet_addr(  ip );


      if Connect( FSocket, SockAddr, Sizeof(SockAddr ) ) = 0 then
        result := true;
.
.   //irgendwie müsste man noch den user und pass mit einbauen^^
.


    end;
end;