Lazarus

[ЮлияKuznechik]

Помогите пожалуйста разобраться с процедурой. Учитель говорит, что в ней что-то напутано((:
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if k=1 then
begin
x2:=x;
y2:=y;
x3:=x;
y3:=y;
x4:=x;
y4:=y;
case RadioGroup1.Itemindex of
0: begin
Image1.canvas.line(x1,y1,x2,y2);
a[q,1]:=RadioGroup1.Itemindex;
a[q,2]:=x1;
a[q,3]:=y1;
a[q,4]:=x2;
a[q,5]:=y2;
end;
1: begin
Image1.canvas.ellipse(x1,y1,x2,y2);
a[q,1]:=RadioGroup1.Itemindex;
a[q,2]:=x1;
a[q,3]:=y1;
a[q,4]:=x2;
a[q,5]:=y2;
end;
2: begin
Image1.canvas.rectangle(x1,y1,x2,y2 );
a[q,1]:=RadioGroup1.Itemindex;
a[q,2]:=x1;
a[q,3]:=y1;
a[q,4]:=x2;
a[q,5]:=y2;
end;
3: begin
Image1.canvas.Arc(x1,y1,x2,y2,x3,y3 ,x4,y4);
end;
4: begin
Image1.canvas.roundrect(x1,y1,x2,y2 ,x3,y3);


end;
5:begin
j:=1;
for i:=1 to 25 do
begin
temp[i].x:=25+(i-1)*10;
temp[i].y:=150-j*(i-1)*5;
j:=-j;
end;
image1.canvas.polyline(temp);
end;
6:begin
image1.canvas.Pen.Style:=psSolid;
end;

end;
q:=q+1;
combobox1.Items.Add(inttostr(q));
k:=0;
end;
end;