Stale to nak nechce odeslat 2 varku aniz bych zavrel clienta, dal jsem tam MS2.position:=0; pred nactenim souboru ale i tak to nejede.Jen jednou se to nacte posle prijme prevede a desifruje a tim to skonci.
Podruhe uz jen na clientu se provede vse ale server uz nic nezpracuje.

try
    Ms2.Position := 0;
    Ms2.LoadFromFile(nahoda);
    pocet:= Ms2.Size;
    ClientSocket1.Socket.SendBuf(pocet,SizeOf(pocet));
    ClientSocket1.Socket.SendStream(Ms2);
 except
 messagedlg(sysErrormessage(GETlasterror),mterror,[mbok],0);
// toto jen zahlasi ze se vse provedlo, tim to dava najevo ze to nefunguje na socketu pri druhem odeslani.
 end;