>AddTodoTask? Страсть как люблю поломать голову над такими вещами

function TQForm.AddTodoTask(Tsk: TTask): Boolean;
var
  i: Integer;
  Msg: String;
begin
  Result := False;
  i := TaskAlreadyExists(Tsk);
  if i <> -1 then begin
     if Task(i).StartTime = 0 then
       Msg := 'Задача с таким описанием уже существует'
     else
       Msg := FormatDateTime('Задача с таким описанием уже 
существует,'#13'назначена на dd.mm.yy hh:mm',
                                                                             
                                                                             
      Task(i).StartTime);
     if MessageDlg(Msg + #13'Переназначить ?',
          mtConfirmation, [mbYes,mbNo],0) <> mrYes
     then
       Exit
     else
       Tasks.Delete(i);
  end;
  Tasks.Add(Tsk);
  Tasks.Sort(@CompareTasks);
  UpdateTodoListBox;
  Result := True;
end;