[ecfisa]

Hola roman.

Pues tenes razón, no había reparado en eso... En ese caso solamente habría que cambiar la línea:

Código Delphi [-]
   if not TryStrToFloat(Text, cd) then

Por:

Código Delphi [-]
  if not (TryStrToFloat(Text, cd) or (Text = '')) then

Saludos.

Edito: Y casi me olvido!!!, también el procedimiento asociado al botón:

Código Delphi [-]
procedure TForm1.btnPromedioClick(Sender: TObject);
var
  Prom: Double;
begin
  Prom:= (StrToFloatDef(Edit1.Text,0) + StrToFloatDef(Edit2.Text,0) +
          StrToFloatDef(Edit3.Text,0) + StrToFloatDef(Edit4.Text,0) +
          StrToFloatDef(Edit5.Text,0) + StrToFloatDef(Edit6.Text,0))  /  6;
  ShowMessage(Format('El promedio es: %8.2f',[Prom]));
end;