1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure suchen(ziel:string;dir:string);
var i:integer;
    listeN:tstringlist;
begin
with form1 do begin
ftp.changedir(dir);
listeN:=tstringlist.create;
listeN:=liste_erzeugen; //gibt verzeichnisinhalt des ftp-servers zurück; funzt

for i:=0 to listeN.count-1 do begin
//Nebensächlich Befehle weggelassen; Fehler tritt so weiterhin auf
suchen(ziel,copy(listeN[i],2,length(listeN[i])-1));
//bei diesem ("suchen..") Befehl tritt der Fehler (Schutzverletzung) auf,
//ABER nicht beim 1. mal, sondern erst, wenn die Procedure abgelaufen ist und
//das Programm sozusagen bei Hauptprocedure fortfahren will
//(Den Zeitpunkt habe ich mit Hilfe von Messageboxes u.s.w  herausgefunden)
end;

ftp.changedir('..');
listeN.free;
end;
end;                    

1:

procedure TForm1.suchen(ziel:string;dir:string);                    

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

type
  TForm1 = class(TForm)
    procedure suchen(ziel:string;dir:string); // HIER DEINE PROCEDURE
  private
    { Private declarations }
  public
    liste:TStringList; // HIER DEINE VARIABLE
    { Public declarations }
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.suchen(ziel:string;dir:string); 
var i:integer; 
listeN:tstringlist; 
begin 
ftp.changedir(dir); 
listeN:=tstringlist.create; 
listeN:=liste_erzeugen; //gibt verzeichnisinhalt des ftp-servers zurück; funzt 

for i:=0 to listeN.count-1 do begin 
//Nebensächlich Befehle weggelassen; Fehler tritt so weiterhin auf 
suchen(ziel,copy(listeN[i],2,length(listeN[i])-1)); 
//bei diesem ("suchen..") Befehl tritt der Fehler (Schutzverletzung) auf, 
//ABER nicht beim 1. mal, sondern erst, wenn die Procedure abgelaufen ist und 
//das Programm sozusagen bei Hauptprocedure fortfahren will 
//(Den Zeitpunkt habe ich mit Hilfe von Messageboxes u.s.w herausgefunden) 
end; 

ftp.changedir('..'); 
listeN.free; 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

function fuellen:tstringlist;
var temp: tstringlist;
begin
temp:=tstringlist.create;
temp.add('test_alpha_1');
temp.add('test_beta_2');
temp.add('test_gamma_3');
temp.add('test_delta_4');
result:=temp;
temp.clear;
end;

procedure test(ftp_sim:integer);
var liste:tstringlist;
begin
liste:=tstringlist.create;
liste:=fuellen;
showmessage(liste[0]);
if ftp_sim=0 then test(ftp_sim+1);
showmessage(liste[0]);
liste.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test(0);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

function fuellen:tstringlist; 
var temp: tstringlist; 
begin 
temp:=tstringlist.create; 
temp.add('test_alpha_1'); 
temp.add('test_beta_2'); 
temp.add('test_gamma_3'); 
temp.add('test_delta_4'); 
result:=temp; 
temp.clear; 
end; 
// Diese Function sollte : String; als Ergebniss liefern. Dann solltest du auch mal wieder etwas per .Free; auflösen, oder?


procedure test(ftp_sim:integer); 
var liste:tstringlist; 
begin 
liste:=tstringlist.create; 
//liste:=fuellen; 
liste.Text:= fuellen;
showmessage(liste[0]); 
if ftp_sim=0 then test(ftp_sim+1); 
showmessage(liste[0]); 
liste.free; 
end;