procedure TPromediometal.Button2Click(Sender: TObject);
var
c1,c2,c3,c4,c5,c6: integer;
aux: real;
x: real;
contador : integer;
begin
x := 0;
contador := 0;
if (TryStrToFloat(Edit1.Text, aux)) then
begin
x := x + aux;
contador := contador + 1;
end;
if (TryStrToFloat(Edit2.Text, aux)) then
begin
x := x + aux;
contador := contador + 1;
end;
[...]
if (contador <> 0) then
begin
x := x / contador;
[...]
end
else
begin
[...]
end;
end;