procedure TForm1.ServerExecute(AThread: TIdPeerThread);
Var BILD:TFilestream;
    SizeOfIncomingStream: integer;
begin
  Savepic.FileName := '123.bmp';
   savepic.Execute;
   // Savepic.FileName<>'';
  BILD := TFileStream.Create(Savepic.FileName, fmCreate or fmShareExclusive);
  with AThread.Connection do
  begin
  try
      SizeOfIncomingStream := ReadInteger;
      ReadStream(BILD,SizeOfIncomingStream);
  finally
      BILD.Free;
      disconnect;
  end;
  end;
    IM_Server.Picture.loadfromfile(savepic.filename);
end;