1:
2:

ReadLn(f, array1[i]);
ReadLn(f, array2[i]);					

1:
2:
3:
4:
5:

type TTest = Class(TObject)
  Fremdwort  : String;
  Bedeutung  : String;
  ...
end;					

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

var  fw : TTest;
begin
 aa := TTest.Create;
 aa.Fremdwort := 'Rödelprömp';
 aa.bedeutung := 'Blödsinn';
 sl.AddObject('Anzeigestring', TObject(aa));
...					

1:
2:
3:
4:

var  fw : TTest;
begin
fw := Stringlist.items.objects[stringlist.itemindex];
AnzeigeBedeutung.Text := fw.Bedeutung;					

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

a, ab (Präp + Abl.) von ... her 
abesse, absum, afui abwesend sein, fehlen
abire, abeo, abii, abitum weggehen
ac = atque und 
accedere, accedo, -cesi, -cessum  
herbeikommen, hinzukommen
accidere, accido, accidi
geschehen, sich ereignen
accipere, accipio, -cepi, -ceptum    annehmen, bekommen
acies, aciei f  Schlachtordnung 
ad (Präp. + Akk.) zu, an, bei, nach
adducere, adduco, -duxi, ductum  heranführen, veranlassen 
adeo (Adv.)  so sehr
adesse, adsum, adfui (m. Dat.)  da sein, helfen
adhuc (Adv)  bis jetzt, noch
adire, adeo, adii, aditum hinzugehen 
adventus, adventus m Ankunft
aedis, aedis f  Tempel; Pl. Haus
aequus, -a, -um  eben, gleich, gerecht					

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

begin
  opendialog1.Execute;
  VocFile := TStringList.Create;
  VocFile.Clear;
  VocFile.LoadFromFile(opendialog1.FileName);
  SetLength (VocList,VocFile.Capacity);
  SetLength (VocList[1],2);
  VocList[1] := explode ('|',VocFile[1]);
  memo1.Text := VocList[0,1];
end;					

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

begin  
if opendialog1.Execute then
 begin  
  VocFile := TStringList.Create;  
  VocFile.Clear;  
  VocFile.LoadFromFile(opendialog1.FileName);  
  SetLength (VocList,VocFile.Capacity);  
  SetLength (VocList[1],2);  
  VocList[1] := explode ('|',VocFile[1]);  
  memo1.Text := VocList[0,1]; 
 end;
end;