var 
  mfBild1, mfBild2, dst: TMetaFile; 
  cnv: TCanvas = nil; 
 
procedure TForm1.Button6Click(Sender: TObject); 
begin 
  mfBild1 := TMetaFile.Create; 
  mfBild2 := TMetaFile.Create; 
  dst := TMetaFile.Create; 
  try 
    mfBild1.LoadFromFile('d:\test1.wmf'); 
    mfBild2.LoadFromFile('d:\test2.wmf'); 
    dst.Width := mfBild1.Width + mfBild2.Width; 
    if mfBild1.Height > mfBild2.Height 
      then dst.Height := mfBild1.Height 
    else dst.Height := mfBild2.Height; 
    cnv := TMetaFileCanvas.Create(dst, 0); 
    cnv.Draw(0, 0, mfBild1); 
    cnv.Draw(mfBild1.Width, 0, mfBild2); 
    cnv.Free; 
    cnv := nil; 
    dst.SaveToFile('d:\w3.wmf'); 
  except 
    showmessage('FEHLER'); 
  end; 
  if assigned(cnv) 
    then cnv.free; 
  mfBild1.Free; 
  mfBild2.Free; 
  dst.Free; 
end;