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

procedure ScreenShot(Bild: TBitMap);  
var
  c: TCanvas;  
  r: TRect;  
begin  
  c := TCanvas.Create;  
  c.Handle := GetWindowDC(GetDesktopWindow);  
  try  
    r := Rect(0, 0, Screen.Width, Screen.Height);  
    Bild.Width := Screen.Width;  
    Bild.Height := Screen.Height;  
    Bild.Canvas.CopyRect(r, c, r);  
  finally  
    ReleaseDC(0, c.Handle);  
    c.Free;  
  end;
end;                    

1:
2:
3:
4:
5:
6:

1. Server sendet Bild 1
2. Client lädt Bild 1 vom Server in Image1
3. Client lädt Bild 1 aus Image1 in Image2
4. Server sendet Bild 2
5. Client lädt Bild 2 vom Server in Image1
...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);

var BILD:TFilestream;
    SizeOfIncomingStream: integer;
begin
  BILD := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'bild.bmp', fmCreate or fmShareExclusive);
  with AThread.Connection do
  begin
  try
      SizeOfIncomingStream := ReadInteger;
      ReadStream(BILD,SizeOfIncomingStream);
  finally
      BILD.Free;
      disconnect;
  end;
  end;
    //Image2.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'bild.bmp');


  if modus=1 then
  begin
  image1.hide;
  image2.hide;
  image1.picture.LoadFromFile(extractfilepath(paramstr(0))+'bild.bmp');
  image1.show;
  modus:=2;
  end
  else begin
  image2.hide;
  image1.hide;
  image2.picture.LoadFromFile(extractfilepath(paramstr(0))+'bild.bmp');
  image2.show;
  modus:=1;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

...   
var   
  lCounter: integer   
begin   
  for lCounter:= 0 to ComponentCount-1 do begin   
    if Components[lCounter].InheritsFrom(TWinControl) then begin   
      TWinControl(Components[lCounter]).DoubleBuffered:= true;   
    end;   
  end;   
end;