Hilfe zum Virenscaner

[nils14]

Hallo @All

Ich versuche gerade ein Antivirus Programm zu schreiben.
Das Problem ist wenn die Schleife das zweite mal durchläuft
sollen die Vireninformation aus der zweiten Zeile der Datei blist.txt
geladen werden und beim dritten mal aus der dritten u.s.w...

Hätte jemand ein Beispiel wie man das machen könnte?

Delphi-Quellcode:

var
A : Integer;
begin
for a := 1 to 10 do
dateiname.Caption := blist.Lines[0];
if FileExists(''+blist.Lines[0]+'') then  begin
ShowMessage('Bei der Datei '+blist.Lines[0]+' handelt es sich um einen Virus. Diese wird nun gelöscht!');
DeleteFile(''+blist.Lines[0]+'');
end;
end;

[edit=Luckie]delphi-Tags. Mfg, Luckie[/edit]