Error 10049 kann nicht connecten

[Russel-Athletic2]

Also ich wollte mit socket etwas machen. Grob gesagt sollen records hin und her geschickt werden. früher habe ich dass mit indy gemacht, aber dass wurde zu kompliziert und deswegen versuche ich jetzt sockets. hier der relevante code:

Client:

Delphi-Quellcode:

procedure Tform1.loginbuttonClick(Sender: TObject);
var rec1:iprec;
begin
clientsock.Port:=628;
clientsock.Host:='127.0.0.1';
clientsock.active:=true;

rec1.clientip:=ip;
rec1.clienthost:=host;
clientsock.open;
clientsock.Socket.SendBuf(rec1,sizeof(rec1));
showmessage('hallo');
clientsock.close;
end;

Server

Delphi-Quellcode:

procedure Tform1.bsvcontrClick(Sender: TObject);
begin
if  bsvcontr.caption='Server ist online' then
begin
        bsvcontr.caption:='Server ist offline';
        serversock.active:=false;
        serversock.socket.close;
end else begin
        if  bsvcontr.caption='Server ist offline' then
        begin
                bsvcontr.caption:='Server ist online';
                serversock.Port:=628;
                serversock.active:=true;
                serversock.Open;
        end;
end;
end;

Ich hoffe ihr könnt mir helfen.
Edit: delphisource gekenzeichnet