[sakuragi]

for i:=0 to DateiList.Count-1 do
begin
if Pos(Filename,DateiList[i])>0 then
begin
FileFound:=true;
break;
end;
end;
if ithen
begin
if not KillProcessByPID(StrToInt64(PIDList[i])) then
begin
result:=false;
exit;
end;

en la aparte de

if ithen

que se supone que va ahi? ya que marca error.

saludos

gracias