procedure TForml.FormShow(Sender: TObj ect);
begin
Width:=51,-//Установить ширину окна
Height:=21;//Установить высоту
Left:=-100;//Убрать окно за левую границу экрана
end;

вот пишет вирус