Capture Form

procedure TfrmUtama.FormKeyDown(Sender: TObject; var Key: Word; Shift:
    TShiftState);
var
  bm: TBitmap;
begin
  //close crtl + x;
  if (ssCtrl in Shift) and (Key = 88) then
  Close;

  //capture form ctrl + C;
  if (ssCtrl in Shift) and (Key = 67) then
  begin
    bm := TBitmap.Create;
    try
      bm.SetSize(ClientWidth, ClientHeight);
      BitBlt(bm.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,
      Canvas.Handle, 0, 0, SRCCOPY);
      Clipboard.Assign(bm);
    finally
      bm.Free;
    end;
  end;
end;