procedure TQForm.SaveToDo;

  procedure SaveEditText(Edit: TCustomEdit);
  var
    Tsk: TTask;
  begin
    if Edit.Text <> '' then begin
      Tsk := TTask.Create(Edit.Text);
      if not AddTodoTask(Tsk) then Tsk.Free;
    end;
  end;

begin
   SaveEditText(Edit1);
   SaveEditText(Edit2);
   SaveEditText(Edit3);
   SaveEditText(Edit4);
   SaveEditText(Edit5);
end;