TBitmap in die Zwischenablage kopieren

[MarioTheKing]

Es geht noch einfacher:

[delphi]

procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('c:\Program Files\Common Files\Borland Shared\Images\Splash\256color\factory.bmp');
clipboard.Assign(Bitmap);
finally
Bitmap.Free;
end;
end;