[Drozh]

Во ты кадр))) Сначалы пытаешься конвертнуть, а потом проверяешь О_о

Код:

var
 x, y, z: Double;
begin
  if not TryStrToFloat(Edit1.Text, x) then
  begin
   Label1.Caption:='Введите значения в Edit1';
   Exit;
  end;

  if not TryStrToFloat(Edit2.Text, y) then
  begin
   Label1.Caption:='Введите значения в Edit2';
   Exit;
  end;

 z:=(x/100)*y;

 прочая лабуда

ПОЛЬЗУЙСЯ ТЭГАМИ!!!