TForm1 = class(TForm)
...
Image1: TImage;
...
private
...
baseBmp: TBitmap;
procedure moveLabel;
...
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
baseBmp := TBitmap.Create;
baseBmp.Assign(Image1.Picture.Bitmap);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
baseBmp.Free;
end;
procedure TForm1.MoveLabel;
const
x: integer = 0;
y: integer = 0;
begin
Image1.Picture.Bitmap := baseBmp;
Inc(x, 2);
Inc(y, 2);
Image1.Canvas.TextOut(x, y, 'your Label Text');
end;
end;
