[lmikle]

Если просто "отбросить" минус, то как-то так:

Код:

a := Abs(StrToFloat(edt1.Text));
b := Abs(StrToFloat(edt2.Text));
c := Abs(StrToFloat(edt3.Text));

Если заставить пользователя вводить только положительные числа, то можно сделать двумя способами:
1. В принципе сделать так, что бы он не мог ввести отрицательное число. Для всех TEdit сделать такого рода обработчик на OnKeyPress

Код:

procedure TForm1.EditKeyPress(Sender : TObject; var Key : Char);
begin
  If Not (Key In [0..9,#8]) Then Key := #0;
end;

2. Сделать проверку и выводить сообщение:

Код:

a := StrToFloat(edt1.Text);
if a < 0 Then 
  Begin
    ShowMessage('a < 0');
    Exit;
  End;
b := StrToFloat(edt2.Text);
if b < 0 Then 
  Begin
    ShowMessage('b < 0');
    Exit;
  End;
c := StrToFloat(edt3.Text);
if c < 0 Then 
  Begin
    ShowMessage('c < 0');
    Exit;
  End;