procedure Thread3.Execute;
begin
Try
form3.serverSocket2.socket.connections[nc2].SendText('#X'+xname+'#0'+'Size:'+IntToStr(fsz.Size)+ '#0');
fsz.Position:=0;
form3.serverSocket2.socket.connections[nc2].sendstream(fsz);
stop:=false;
form3.statusbar1.panels[1].text:='Второй канал свободен';
form3.timer1.enabled:=true;
fsz.Clear; //зло
Finally
end;
end;
Без потока то же самое было, это не он виноват.