todo_terrortodo.pas

{ TErrorTodo }

constructor TErrorTodo.Create(ErrorMessage: string);
begin
  self.ErrorMessage := ErrorMessage;
end;

function TErrorTodo.GetSelf: TObject;
begin
  Result := Self;
end;

function TErrorTodo.ToString: string;
begin
  Result := 'Todo Error: ' + ErrorMessage;
end;