como tratar erro gerado por função StrToFloat?

Try
StrToFloat(Edit1.text);
Except
On EConvertError do Begin
if Edit1.text <> ´´ then
Showmessage(´Erro de conversão´)
else
Showmessage(´Edit Não preenchido!) ;
end;
end;

try

campoquerecebefloat := strtofloat(variavelstring)

except
ShowMessage(´ocorreu alguma coisa´);
variavelstringe.setfocus;
end;

A função StrToFloat gera exceção em um bloco try/except?
Como faço para evitar erro na conversão do conteúdo de um Edit em que não foi digitado um valor?

é simples, é so vc colocar o seguinte codigo onde esta dando erro...

begin
If Edit1.Text <> ´´ then
begin
... {o codigo que já existe em seu programa, o qual esta dando erro}
end
else
begin
ShowMessage(´Digite algum valor numerico no campo!´);
end;

Se nao der certo me avise!
end;

Vcs ja ouviram falar do StrToFloatDef ????

Assim:

StrToFloatDef(String,0);

Ou seja, o valor zero será o valor padrao para se algo der errado na convesao de dados de Str para Float.....

Valeu
Sidnei