ООП мое первое начало

[cross]

Всем привет! Пожалуйста помогите разобраться с ООП. Решил к этому подойти вплотную, и теперь куча вопросов и проблем. Задумал одну программку, помогите на ней разъяснить..... Может что-то надо изменить..... Суть дела, в том, что надо на форму вывести 5 кружков, создать их и вывести, и еще чтобы можно учитывать клик мышкой.
type
tFAlarm=class
private
{ Private declarations }
fCircle:Timage;
fBcircle:Timage;
fAlCircle:Timage;
fname:string;
public
{ Public declarations }
procedure ShowFAlarm;
end;

var fAlarm:tFAlarm;

procedure tFAlarm.ShowFAlarm;
begin
fcircle.fimg:=Timage.Create(form2.P nlAlarm);
fcircle.fimg.Parent:=form2.PnlAlarm ;
fcircle.fimg.Picture.LoadFromFile(f path+'Texture\AlCirlce.bmp');
end;
fAlarm:=tFAlarm.Create;
fAlarm.fAlCircle:=Timage.Create(for m2.panelAlarm);
fAlarm.fAlCircle.Parent:=form2.Pane lAlarm;
fAlarm.fAlCircle.Show;
fAlarm.fAlCircle.Picture.LoadFromFi le(fpath+'Texture\AlCirlce.bmp');
fAlarm.fAlCircle.AutoSize:=true;
fAlarm.fAlCircle.Transparent:=true;
end;

Как правильно можно все это организовать и что вписывать в constructor?

[BOBAH13]

у меня такое впечатление что этот код писал вообще не знающий в паскале человек без обид но вот это procedure tFAlarm.ShowFAlarm; Вы 2 раза указываете конец процедупы end; ! и вообще надо бы побольше кода... да и забыл еще я вообще не вижу конструктор ! а чем Вы