Programa de promedio

[alenbebote]

Hola acabo de iniciar en esto de delphi y me han dejado un programa que calcule el promedio de 6 edits, el programa si me funciona, pero el profesor dice que tambien saque el promedio de por ejemplo 3 edits solamente y al momento de correr el programa y solo rellenar 3 edits me marca un error no se como hacer que si lleno solo 2, 3, 4 o 5 edits tambien me saque el promedio y no me salga el error espero me puedan ayudar

procedure TPromediometal.Button2Click(Sender: TObject);
var
c1,c2,c3,c4,c5,c6: integer;
x: real;
begin
c1:=Strtoint (edit1.text);
c2:=Strtoint (edit2.text);
c3:=Strtoint (edit3.text);
c4:=Strtoint (edit4.text);
c5:=Strtoint (edit5.text);
c6:=Strtoint (edit6.text);
x:=(c1+c2+c3+c4+c5+c6) / 6;
end;
memo1.lines.clear;
memo1.lines.add (FormatFloat ('Tu promedio #.##!' ,x));
if x < 7 then
memo1.lines.add ('Reprobaste ¡Lo Sentimos!')
else
memo1.lines.add ('Aprobaste ¡Felicidades!');
end;