[marcoszorrilla]

Prueba con esto:

procedure TForm1.Button1Click(Sender: TObject);
var
MiFloat:Double;
begin
 try
 MiFloat:=StrToFloat(Edit1.Text);
 except
 ShowMessage('Tipo de datos incorrectos.');
 end;
end;

Un Saludo.