text mit größe des fensters ändern

[Molzer]

was muss ich tun damit sich meine striche an die größe meines fensters anpassen?

Delphi-Quellcode:

procedure TForm2.FormResize(Sender: TObject);
begin
mx := Width  div 2;
my := Height div 2;
with canvas do begin
  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx,my-100);
  lineto(mx,my-120);

  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx-100,my);
  lineto(mx-120,my);

  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx+100,my);
  lineto(mx+120,my);

  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx,my+100);
  lineto(mx,my+120);

end;