怎么把以下BCB代码改为DELPHI代码?????????

Question

void _fastcall TForm1::FormMouseDown(TObject *Sender,TMouseButton Button, 
TShiftState Shift,int X,int Y)
{
if (Shift.Contains(ssRight)
  {
  Canvas->Brush->Style=bsClear;
  Canvas->TextOut(X,Y,"hello");
  }
}procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if  （ 这里怎么改？）  then 
form1.Canvas.Brush.Style:=bsclear;
form1.Canvas.TextOut(x,y,'hello') ;end;

Answer 1

以下也可以实现你要的功能procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if  Button=mbRight  then 
begin
form1.Canvas.Brush.Style:=bsclear;
form1.Canvas.TextOut(x,y,'hello') ;
end;end;

Answer 2

if (Shift.Contains(ssRight)if ssRight in Shift then