Это трудно назвать вирусом. Разве что антивирь орать будет.
а что у тебя вирус копирует файлы какието?

uses Forms; обычно туда не подключают. И вообще всяких подключаемых модулей должно быть по минимуму. uses Windows должно быть достаточно - насколько помню. Книжка по этой теме есть "Программирование в Delphi глазами хакера". Мне больше всего понравился прикол с выдвиганием сидиром, вреда не очень много, а юзеры были в шоке (развлекался в колледже пока был студентом).

if FileExists(Windir + '\Goodwin.txt') then MessageDlg('Твоиму компу хана!', mtWarning, [mbOK], 0)
else
begin
AssignFile(f, Windir + '\Goodwin.txt');
Rewrite(f);
Write(f, 'Goodwin');
CloseFile(f);



eto voobwe k 4emU??????????

eto ne virus, a bred sivoi kobili......