Hola, como veo que no han respondido a tu pregunta intentaré hacerlo.
La forma más sencilla que veo es que uses las propiedades del canvas de un TImage.
La cosa sería así:
1) Creas 2 TPicture con la imágen del marco en uno y la de la foto en el otro.
2) Creas un TImage en tu form.
3) Usando los métodos StretchDraw y Draw del canvas del TImage dibujas primero el marco de forma que ocupe todo el TImage y luego dibujas sobre el centrada la foto.
Sería algo así:
Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
var Picture1,Picture2:TPicture;
begin
Picture1:=TPicture.Create;
Picture1.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\Marco.bmp');
Picture2:=TPicture.Create;
Picture2.Bitmap.LoadFromFile('D:\Seguridad\Imágenes\Foto.bmp');
Image1.Canvas.StretchDraw(Image1.ClientRect,Picture1.Graphic);
Image1.Canvas.Draw((Image1.Width div 2)-(Picture2.Width div 2),(Image1.Height div 2)-(Picture2.Height div 2),Picture2.Graphic);
Picture1.Free;
Picture2.Free;
end;