[Asinkrit]

Так определяется какая кнопка была нажата:

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  case Button  of
    mbLeft: ;  //нажата левая кнопка
    mbRight: ; //правая
    mbMiddle: ;//средняя
  end;
end;

Очистка канвы, в данном случае формы

Код:

PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, Form1.Color);