После поставување на три едит со имињa edit1, edit2, edit3 (чиј текст треба да се избрише), label1 и button1 на двоен клик на button1 се впишува следниот код 

пред begin на процедурата на кликање на Button1

var zbir,br,pr:real;

по begin на процедурата на кликање на Button1

zbir:=0;
br:=0;
pr:=0;
if edit1.Text<>'' then
    if (strtofloat(edit1.Text)<1) or (strtofloat(edit1.Text)>5) then
        showmessage('Vnesovte losa ocena!!! Taa mora da bide megu 1 i 5')
    else
        begin
            zbir:=zbir+strtofloat(edit1.text);
            br:=br+1;
        end;

if edit2.Text<>'' then
    if (strtofloat(edit2.Text)<1) or (strtofloat(edit2.Text)>5) then
        showmessage('Vnesovte losa ocena!!! Taa mora da bide megu 1 i 5')
    else
        begin
            zbir:=zbir+strtofloat(edit2.text);
            br:=br+1;
        end;

if edit3.Text<>'' then
    if (strtofloat(edit3.Text)<1) or (strtofloat(edit3.Text)>5) then
        showmessage('Vnesovte losa ocena!!! Taa mora da bide megu 1 i 5')
    else
        begin
            zbir:=zbir+strtofloat(edit3.text);
            br:=br+1;
        end;

pr:=zbir/br;
label1.Caption:=floattostr(pr);