Form1.Canvas に対して Delphi ふうに書けば

procedure TForm1.Button1Click(Sender: TObject);
begin
with Canvas do begin
Font.Size := 36;
BeginPath(Handle);
TextOut(0,0,'Windows NT Rules Well & Wisely');
EndPath(Handle);
SelectClipPath(Handle,RGN_AND);
Brush.Color := clRed;
Windows.FillRect(Handle,ClientRect,Brush.Handle);
end;
end;