[v1s2222]

Ну а самому написать. Даже примитивно:

Код:

function SignOf(N: Integer): Boolean; // True - число положительно, иначе - отрицательное
begin
  if(N > 0) then
    Result := True
  else
    if(N < 0) then
      Result := False
    else
      ShowMessage('Ноль.');
end;

ЗЫ Почитай хоть пару первых страничек из любого самоучителя по делфи... и не будешь задавать подобных вопросов.