Исходников антивируса на Delphi в сети нет. Да и зачем? Ты хочешь сделать что-то лучше Касперского или Dr.WEB?? Не. Если только для изучения принципа работы (в случае если пишешь вирусы). А принцип таков: сканируем файлы на наличие определенных сигнатур (последовательность байт), если есть - вирус, если не совсем совпадает, возможно вирус. Эвристика - проверка на присутствие скрытых загрузчиков, перехватов системы и подобное. Сам когда-то писал антивирус, но ничего особого не вышло.