Edit parte 1!

Estou com problemas em editar valores do tipo real negativo, no edit.
sempre da pau!!!

alguem tem alguma ideia, sou novato!

tentei este codigo abaixo, mas com outro tipo de edit.
procedure TForm1.Button1Click(Sender: TObject);
var
Teste: Currency;
begin
try
Teste:=StrtoInt(Edit1.Text);
If Teste > 0 then
begin
Application.MessageBox(´Insira um número Negativo´, ´Erro´,MB_OK + MB_DEFBUTTON1);
end
else
Label1.Caption:=CurrtoStr(teste);
except
on EConvertError do
Application.MessageBox(´Valores Inválidos. Não use pontos nem letras´,´Erro´, MB_OK + MB_ICONERROR + MB_DEFBUTTON1);
end;
end;

mas como eu disse não funcionou!