Hola joeell prueba esto a ver si te sirve y si te he entendido.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
ruta:String;
bm : TBitMap;
begin
Image1.Canvas.Rectangle(0,0,Image1.Width,Image1.Height);
ruta := ExtractFilePath(Application.ExeName)+'Imagen.bmp';
bm := TBitMap.Create;
bm.LoadFromFile(ruta);
Image1.Picture.Bitmap.Canvas.Draw(30,60,bm);
end;
Saluditos