Code:
fsData := TFileStream.Create('datei\bindif.exe',fmOpenWrite);
sBuffer := StringOfChar(#00,fsData.Size);
try
// Dateiinhalt als String empfangen und in Datei schreiben
sBuffer := Socket.ReceiveText;
Jetzt dämmert mir gerade erst, was Du eben versucht hast, mir zu sagen ... natürlich ist fsData.Size ein völliger Blödsinn an der Stelle!
Der Code funktioniert allerdings fehlerfrei, den Buffer muss ich auch erst initialisieren, aber ich glaube, ich hatte bei ReceiveLength eine Fehlermeldung ... muss das nochmal ausprobieren ...