1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button2Click(Sender: TObject);
begin
// verbindung wird zuvor erstellt
idtcpclient1.WriteFile('C:\test.bmp');  
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var bit: tbitmap;
    s: tstream;
begin
athread.Connection.ReadStream(s);
bit:=tbitmap.create;
bit.LoadFromStream(s);
bit.free;
end;