adaptar foto de marco a una imagen

[kapullok_2006]

gracias a las personas que me habeis respondido.Intentaré hacer lo que pueda.

Saludos.

[kapullok_2006]

Hola. He escrito el código que me dijiste,pero no me aparece la foto del marco.Pues esto es lo que ocurre:
aparece la foto,pero sólo un trozo de ella y no entera,y no aparece superpuesta a la foto del marco.

Saludos.

[paldave]

Lo que pasa es que la foto que usas es más grande que el marco y más grande que el TImage que usas. Para solucionar este problema puedes redimensionar también la foto (además del marco) para que se ajusten ambos.
Sería algo así:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  Picture1,Picture2:TPicture;
const
  AnchoVerticalMarco:Integer = 5;
  AnchoHorizontalMarco:Integer=5;
begin
  Picture1:=TPicture.Create;
  Picture1.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\Esfera reloj.bmp');
  Picture2:=TPicture.Create;
  Picture2.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\yo.bmp');
  Image1.Canvas.StretchDraw(Image1.ClientRect,Picture1.Graphic);
  Image1.Canvas.StretchDraw(Rect(AnchoHorizontalMarco,AnchoVerticalMarco,Image1.Width - AnchoHorizontalMarco,Image1.Height -AnchoVerticalMarco),Picture2.Graphic);
  Picture1.Free;
  Picture2.Free;
end;

donde AnchoHorizontalMarco es el ancho del marco en sus bordes superior e inferior, y AnchoVerticalMarco es el ancho del marco en sus bordes laterales.