Если правильно понял, то НЕ надо дать возможность ввести в едит отрицательные числа (точнее вывести ошибку).
Код:
procedure TForm1.btn1Click(Sender: TObject);
begin
if(StrToInt(Edit1.Text) < 0) then begin
ShowMessage('Error. Можно вводить только положительные числа');
Exit;
end;
/// так же сделать и для других двух едитов
...
ЗЫ если же человек введет в едит не цифры, то полетит ошибка перевода, ее можно отловить например тем же Try...Except... end;