[Delphi] Jak zrobić wrusa lub coś w tym stylu?

Pomóżcie, na żadnej stronie nie mogę tego znaleźć. Opiszcie co robi
i napiszcie źródło. Możecie mi je wysłać na adres [email protected]. Proszę o helpa!!!

Wrusa, pierwsze słyszę.
A o wirusa to tu lepiej nie pytaj.