Нарисовать прямоугольный треугольник

var
  Form1: TForm1;
  a,b,x0,y0:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
randomize;
val(Edit1.Text,a,i);
if(i<>0)or(a<10)or(a>PaintBox1.Width-20)then
 begin
  ShowMessage('Введите длину катета А целое число'+#13#10+
               'от 10 до '+inttostr(PaintBox1.Width-20));
  Edit1.Clear;
  Edit1.SetFocus;
  exit;
 end;
val(Edit2.Text,b,i);
if(i<>0)or(b<10)or(b>PaintBox1.Height-20)then
 begin
  ShowMessage('Введите длину катета В целое число'+#13#10+
               'от 10 до '+inttostr(PaintBox1.Height-20));
  Edit2.Clear;
  Edit2.SetFocus;
  exit;
 end;
val(Edit3.Text,x0,i);
if(i<>0)or(x0<1)or(x0>PaintBox1.Width-a)then
 begin
  ShowMessage('Введите координату Х целое число'+#13#10+
               'от 1 до '+inttostr(PaintBox1.Width-a));
  Edit3.Clear;
  Edit3.SetFocus;
  exit;
 end;
val(Edit4.Text,y0,i);
if(i<>0)or(y0>PaintBox1.Height-1)or(y0<PaintBox1.Top+b)then
 begin
  ShowMessage('Введите координату Y целое число'+#13#10+
               'от '+inttostr(PaintBox1.Top+b)+' до '+inttostr(PaintBox1.Height-1));
  Edit4.Clear;
  Edit4.SetFocus;
  exit;
 end;
Button1.Tag:=1;
PaintBox1.Repaint;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
if Button1.Tag=1 then
with Canvas do
 begin
  pen.Color:=clRed;
  pen.Width:=2;
  moveto(x0,y0);
  lineto(x0+a,y0);
  lineto(x0,y0-b);
  lineto(x0,y0);
 end;
end;