В процессе работы полез в исходники одного пакета (очень удобного и полезного, кстати). Код красивый, прозрачный, понятный, неплохо откомментированный. И вдруг натыкаюсь на такой кусок:
// check if any component is linked to OnRxChar event
procedure CheckLinks;
{$WARNINGS OFF}
var
I: Integer;
FuckMeAndMyDogToo: Pointer; //TCPortBytes;{Pointer}
ComLink: TComLink;
ReadFromBuffer: Boolean;
begin
FuckMeAndMyDogToo := nil;
Это ж до чего человек дошёл в процессе разработки, что так переменную обозвал?