[cloayza]

Estimado djhairoflow, leo su post y quisiera si me lo permite indicarle algunos pequeños cambios que creo le serán de utilidad.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
psuma, ssuma,tsuma,pmedia,smedia,tmedia,media1,media2,media3,media4,media5,media6,pp4,pp5,pp6,num1,num2,num 3,num4,num5,num6,num7
,num8,num9,num10,num11,num12,num13,num14,num15: integer;

    {Esta función le entrega el concepto correspondiente a la nota de la evaluación
     así evita repetir este código...}
    function GetEvaluacion(value:Integer):string;
    begin
         if value < 3 then
             Result := 'Muy deficiente'
         else if( value <5) then
             Result := 'Insuficiente'
         else if value = 5 then
             Result := 'Suficiente'
         else if value = 6 then
             Result := 'Bien'
         else if (value < 9) then
             Result := 'Notable'
         else if value > 8 then
             Result := 'Sobresaliente'
    end;

begin
    if(edit1.Text='') or (edit2.Text ='') or (edit3.Text='') or (edit4.Text ='') or (edit5.Text ='') or (edit6.Text ='') or (edit7.Text ='') or (edit8.Text ='') or (edit9.Text ='') or (edit10.Text='') or (edit11.Text ='') or (edit12.Text='') or (edit13.Text='') or (edit14.Text ='') or (edit15.Text ='') then
    begin
         showmessage ('Los datos no están completos o son incorrectos');
         Exit;  //Corrección que ya le indicaron dos notables foristas como son ElKurgan y Ferrari...
    end
    else
    begin
         num1 :=strtoint (edit1.Text);
         num2 :=strtoint (edit2.Text);
         num3 :=strtoint (edit3.Text);
         num4 :=strtoint (edit4.Text);
         num5 :=strtoint (edit5.Text);
         num6 :=strtoint (edit6.Text);
         num7 :=strtoint (edit7.Text);
         num8 :=strtoint (edit8.Text);
         num9 :=strtoint (edit9.Text);
         num10 :=strtoint (edit10.Text);
         num11 :=strtoint (edit11.Text);
         num12 :=strtoint (edit12.Text);
         num13 :=strtoint (edit13.Text);
         num14 :=strtoint (edit14.Text);
         num15 :=strtoint (edit15.Text);
         {Suma1}
         psuma := num1 + num2 + num3 + num4 + num5;
         Panel1.Caption := inttostr(psuma);

         ssuma := num6 + num7 + num8 + num9 + num10;
         panel2.Caption := inttostr (ssuma);

         tsuma := num11 + num12 + num13 + num14 + num15;
         panel3.Caption := inttostr(tsuma);

         {Promedio 1}
         pmedia := (num1 + num2 + num3 + num4 + num5) div 5;
         panel4.Caption := inttostr(pmedia);

         smedia := (num6 + num7 + num8 + num9 + num10) div 5;
         panel5.Caption := inttostr(smedia);

         tmedia := (num11 + num12 + num13 + num14 + num15) div 5;
         panel6.Caption := inttostr(tmedia);

         media1 := (num1 + num6 + num11)div 3 ;
         media2 := (num2 + num7 + num12)div 3 ;
         media3 := (num3 + num8 + num13)div 3 ;
         media4 := (num4 + num9 + num14)div 3 ;
         media5 := (num5 + num10 + num15)div 3 ;
         media6 := (pmedia + smedia + tmedia) div 3 ;

         panel7.Caption :=GetEvaluacion(media1);
         panel8.Caption :=GetEvaluacion(media2);
         panel9.Caption :=GetEvaluacion(media3);
         panel10.Caption:=GetEvaluacion(media4);
         panel11.Caption:=GetEvaluacion(media5);
         panel12.Caption:=GetEvaluacion(media6);

         {Barra de Pro}
         pb1.Position := media1 ;
         pb2.Position := media2 ;
         pb3.Position := media3 ;
         pb4.Position := media4 ;
         pb5.Position := media5 ;
         pb6.Position := media6 ;
    end;
end;

Saludos cordiales