var
   meinedatei : TextFile;
   text   : string;
 
 begin
   // Versucht die Datei zu öffnen bzw "prepariert" sie
   AssignFile(meinedatei, 'Test.txt');
   // Erstellt oder Überschreibt die Datei falls vorhanden
   ReWrite(meinedatei);
 
   // Beschreiben der Datei mit Klartext 
   // Writeln macht jedesmal einen Zeilenumbruch
   // -> write auch möglich
   WriteLn(meinedatei, 'Hello');
   WriteLn(meinedatei, 'World');
 
   // Schliest die Datei
   CloseFile(meinedatei);
 
   // Öffnet die Datei erneut
   Reset(meinedatei);
 
   // Liest die Komplette Datei und giebt bei jeder Zeile eine
   // Messagebox aus.
   while not Eof(meinedatei) do
   begin
     ReadLn(meinedatei, text);
     ShowMessage(text);
   end;
 
   // ...
   CloseFile(meinedatei);
 end; 

FileMode := fmOpenWrite;

 
type
   Takeag = Record
     name : string[20];
     alter  : Integer;
     kerl : Boolean;
   end;
 
 var
   meinedatei  : File of Takeag;  
   user : Takeag;          
 
 begin

   AssignFile(meinedatei, 'Userdb.jou');
   ReWrite(meinedatei);
 
 
   user.name := 'take';
   user.alter  := 19; // :X
   user.kerl := true; // maybe :X
   Write(meinedatei, user);
 
   user.name := 'sofl';
   user.alter  := 19;
   user.kerl := true;
   Write(meinedatei, user);
 
   CloseFile(meinedatei);
 

   FileMode := fmOpenRead;
   Reset(meinedatei);
 
 
   while not Eof(meinedatei) do
   begin
     Read(meinedatei, user);
     if user.kerl
     then ShowMessage('Ein Kerl namens '+user.name+
                      ' ist '+IntToStr(user.alter)+' alt :)')
     else ShowMessage('Eine Dame namens '+user.name+
                      ' ist '+IntToStr(user.alter)+' alt :)')
   end;
   CloseFile(meinedatei);
 end;

var
   fileData : TStringList;
   i: integer;
 begin
   fileData := TStringList.Create; //Stringlistobject erstellen
   fileData.LoadFromFile('Test.txt'); // Datei in die Stringlist laden
 
   // Inhalt anzeigen
   for i := 0 to fileData.Count-1 do
     ShowMessage(fileData[i]);
 
   // Datei unter neuem Namen speichern
   // Natürlich jederzeit beschreibbar mit
   // fileData[zeile] := 'na aber';
   fileData.SaveToFile('muh.txt');    
 end;