[ecfisa]

Hola.

Otra opción puede ser:

Código Delphi [-]
var
  Value: Double;
begin
  with Edit6 do
  begin
    if not TryStrToFloat(Text, Value) then
    begin
      Text := '';
      SetFocus;
    end;
  end;
  ...

Saludos.