También puedes ir acumulando y contando los valores válidos en la variable x y en otra variable contador:
Código Delphi
[-]
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;
PD: Te he resuelto la taréa, solo porque veo que haz puesto empeño. (Hay otra gente que viene con el enunciado y espera que le des una función terminada y probada)
De todos modos, te veo un poco verde en el manejo de los componentes visuales y sus eventos (Edits, Botonoes, etc.).
Deberías leer un poco más sobre el tema.
Aquí verás un ejemplo de como crear un botón y responder al evento OnClick (cuando se presiona).
Sigue practicando y diviértete mucho con Delphi!