Delphi - socket

como puedo crear un socket en delphi 6, a alguien me poddria pasar uno

¿Te refieres a los Sokets del Socket 2 API?
si es eso, declara la variable a recibir el handle y llama al procedimiento Socket:

Esta función te devolver[ia el handle al Socket, para tyrabajor con el protocolo TCP:

function CreateSocket: THandle;
begin
Result:=socket(AF_INET,SOCK_STREAM,IPPROTO_TCP);
end;