1:
2:
3:
4:
5:
6:
7:
8:

C:\ordner1\bla.txt
C:\ordner1\bla2.txt
C:\ordner1\bla3.txt
C:\ordner1\bla4.txt
C:\ordner1\bla5.jpg
C:\ordner1\bla.exe
C:\ordner2\bla.txt
C:\ordner2\bla2.txt					

1:
2:
3:
4:
5:
6:
7:
8:

C:\ordner1\bla.txt existiert
C:\ordner1\bla2.txt existiert
C:\ordner1\bla3.txt existiert
C:\ordner1\bla4.txt existiert
C:\ordner1\bla5.jpg existiert
C:\ordner1\bla.exe existiert
C:\ordner2\bla.txt existiert
C:\ordner2\bla2.txt existiert					

1:
2:
3:
4:
5:

for a := 0 to memo1.lines.count do begin

//code

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var 
  i, k: integer;
begin
  k := 0;
  for i := 0 to memo1.lines.count do
    begin
      if fileexists(memo1.lines[k]) then
        memo1.lines[k] := memo1.lines[k] + ' existiert';
      inc(k);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:

Var 
  Idx: Integer; 
Begin
  For Idx := 0 to Memo1.Lines.Count -1 Do
    If FileExists (Memo1.Lines [Idx]) Then
      Memo1.Lines[k] := Memo1.Lines[k] + #32 + 'existiert';
End;