[lmikle]

Ну, типа так:

Код:

var
  C  : Currency;
begin
  Try
    C := StrToCurr(Edit1.Text);
  Except
    On E : Exception Do
      Begin
        ShowMesage('Произошла ошибка при чтении данных: '+E.Message);
        C := 0;
      End;
  End;

  // ... продолжаем работу