Delphide Dikdörtgen Yapımı

delphi

procedure TForm46.Button1Click(Sender: TObject);
begin
Canvas.MoveTo(50,50);
Canvas.LineTo(250,50);
Canvas.LineTo(250,100);
Canvas.LineTo(50,100);
Canvas.MoveTo(50,50);
Canvas.LineTo(50,100);
end;
end.

procedure TForm46.Button1Click(Sender: TObject);
var
k:TRect;
begin
k.Left:=50;
k.Top:=100;
k.Right:=150;
k.Bottom:=250;
Canvas.Rectangle(k);
end;
end.