Miért nem jó a program? Pascal grafika. Kérlek segísetek.

Vki nem tudja megmondanihogy hogyan csináljam hogy mikor klikkelek kirajzoljon egy kört?

a balgomb egy függvény ami teszteli hogy klikkeltem-e a bal egérgombbal de mikor ezt beírom:

if balgomb then

circle(x,y,50)

akkor olyan mintharajtatartanám az ujjam a klikken, tehát ahogy húzom az egeret úgy rajzolja a köröket.Valami megoldás erre?Előre is köszönöm.

Tehát hogy ne rajzolja egymásután a köröket csak egyet.

A függvény így néz ki:

function balgomb:boolean;

begin

R.AX:=3;

Intr($33,R);

balgomb:=R.BX and 1=1;

end;