Hola,
A ver si esto te da alguna idea:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\archivo1.jpg');
Image2.Picture.LoadFromFile('C:\archivo2.jpg');
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
if (Sender is TImage) then Image3.Picture.Assign(TImage(Sender).Picture);
end;