title: crop and align inserted BMP in Delphi
body: <p>I want to crop and align the inserted BMP from the clipboard.
  I'm trying for 2 days but still nothing workable...</p>
  
  <pre><code>procedure TForm1.act1Execute(Sender: TObject);
  var
  BMP : TBitmap;
  begin
  BMP := TBitmap.Create;
  BMP.Assign(Clipboard);
  BMP.SetSize(400,200);
  Img1.picture.Graphic := BMP;
  BMP.Free;
  end;
  
  procedure TForm1.act1Update(Sender: TObject);
  begin
  (Sender as TAction).Enabled := Clipboard.HasFormat(CF_BITMAP);
  end;
  
  end.
  </code></pre>