1:
2:
3:
4:
5:

Max Mustermann
mustermann
192.168.2.1
password
Benutzerkennung					

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

var i: integer; 
      s: TStringList;
begin
try
 s:= TStringList.Create;
 s.LoadFromFile('konto1.txt');
 for i:=1 to 5 do // für 5 die Anzahl der Edits nehmen
     (FindComponent('Edit' + IntToStr(i)) as TEdit).Text := s[i];
finally
 s.Free;
end;
end;					

1:

for i:=0 to 4 do // für 5 die Anzahl der Edits nehmen					

1:
2:

for i:=0 to 4 do // für 5 die Anzahl der Edits nehmen 
     (FindComponent('Edit' + IntToStr(i + 1)) as TEdit).Text := s[i];					

1:

FOR i := 0 TO MyStringList.Count - 1 DO					

1:
2:

IF MyStringList.Count > 4 THEN
  FOR i := 0 TO 4 DO					

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

var
  Index : Integer;  
  MaxIndex : Integer;
  StringList : TStringList; 
begin 
  StringList := TStringList.Create; 
  try 
    StringList.LoadFromFile(ExtractFilePath(Application.ExeName) + 'konto1.txt'); 

    if (StringList.Count >= 5) then
      MaxIndex := 5
    else
      MaxIndex := StringList.Count;

    for Index := 1 to MaxIndex do
      TEdit(FindComponent('Edit' + IntToStr(Index))).Text := StringList[Pred(Index)]; 
  finally 
    StringList.Free; 
  end; 
end;					

1:

FileName :='\\ibasserver\ELOProf\Global\Postbox\Hier soll das edtit erscheien\'+ Zeit + '_' + inttostr(counter) +'.tif';					

1:

FileName :='\\ibasserver\ELOProf\Global\Postbox\'+Form2.Edit2.Text+'\'+ Zeit + '_' + inttostr(counter) +'.tif';					

1:

FileName :='\\ibasserver\ELOProf\Global\Postbox\'+GlobaleVariable+'\'+ Zeit + '_' + inttostr(counter) +'.tif';