[lmikle]

Да там и корни не надо искать. Достаточно, что бы дискриминант был >= 0.

Код:

procedure HaveSol(a,b,c : Extended);
begin
  If (sqr(b) - 4*a*c) >= 0 
    Then ShowMessage('True') 
    Else ShowMesage('False');
end;