UnimCalendar - code change

[PS1]

Please change code under in file ,,UniCalendarPanel.pas".

Basically if there is 1 calendar item added and i will search for second one it will return the first one instead of nil...

function TUniCalendarList.GetCalendarFromId(CalendarId: Integer): TUniCalendarItem;
var
  I: Integer;
begin
  Result := nil;
  for I := 0 to Count - 1 do
  begin
    Result := Items[I];
    if Result.CalendarId = CalendarId then Exit;
  end;
end;