Кто-нибудь знает, как выполнить задачку?

unit br;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     LabeledEdit1.Text:=inttostr(random(Image1.Width));
     LabeledEdit2.Text:=inttostr(random(Image1.Height));
     LabeledEdit3.Text:=inttostr(random(Image1.Width));
     LabeledEdit4.Text:=inttostr(random(Image1.Height));
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    x:array[1..2,1..2] of integer;
 
procedure lline(xa, ya, xb, yb:integer; color: TColor);
var k,b,y:real;
x:word;
begin
 
k:=(yb - ya) / (xb - xa);
b:= ya - k * xa;
x:=xa;
while x<=xb do begin
Form1.Image1.Canvas.Pixels[x,round(k * x + b)]:=color;
inc(x);
end;
end;
begin
     x[1,1]:=strtoint(LabeledEdit1.Text);
     x[1,2]:=strtoint(LabeledEdit2.Text);
     x[2,1]:=strtoint(LabeledEdit3.Text);
     x[2,2]:=strtoint(LabeledEdit4.Text);
     lline(x[1,1],x[1,2],x[2,1],x[2,2],clBlue);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
 
end.