adaptar foto de marco a una imagen

[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.