RPSImage

procedure TForm1.LoadClick(Sender: TObject);
var
 r:TRPSImage;
 b:TBitmap;
begin
b:=TBitmap.Create;
r:=TRPSImage.Create;
r.LoadFromFile('RPSImage.rps');
b.Assign(r);
b.SaveToFile('Bitmap.bmp');
r.Free;
b.Free;
end;

procedure TForm1.SaveClick(Sender: TObject);
var
 r:TRPSImage;
 b:TBitmap;
begin
b:=TBitmap.Create;
r:=TRPSImage.Create;
b.LoadFromFile('Bitmap.bmp');
r.Assign(b);
r.SaveToFile('RPSImage.rps');
r.Free;
b.Free;
end;

procedure TForm1.CopyClick(Sender: TObject);
var r:TRPSImage;
begin
r:=TRPSImage.Create;
r.LoadFromFile('RPSImage.rps');
ClipBoard.Assign(r);
r.Free;
end;

procedure TForm1.PasteClick(Sender: TObject);
var r:TRPSImage;
begin
r:=TRPSImage.Create;
r.Assign(ClipBoard);
r.SaveToFile('RPSImage.rps');
r.Free;
end;