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

var
  sl: TStrings;
begin
  sl := TStringList.Create;
  try
    // Datei laden
    sl.LoadFromFile('C:\Datei.txt');

    // 1A1A durch Zeilenumbruch ersetzen
    sl.Text := StringReplace(sl.Text, '1A1A', sLineBreak, [rfReplaceAll]);

    // korrigierte Datei speichern
    sl.SaveToFile('C:\Datei2.txt');

    // oder in ein memo ausgeben
    Memo1.Text := sl.Text;
  finally
    FreeAndNil(sl);
  end;
end;					

1:
2:
3:

sl.LoadFromFile(data);
i:=pos('1A1A',sl.Text);
form1.Listbox1.Items.add(IntToStr(i));					

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

var
txtdat:string;
filedata:tstringlist;
begin
txtdat:=filedata.Text
for lines:=0 to length(txtdata) do
begin
 I:=pos('1A1A'.txtdat);
 delete(txtdat,0,I-1);
form1.Listbox1.items.add(txtdat);
end;					

1:
2:
3:

  s := filedata.Text;
  i := pos('1A1A', s);
  Delete(s, 1, i - 1);					

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

var
txtdat, substring:string;
filedata:tstringlist;
begin
txtdat:=filedata.Text;
for lines:=0 to length(txtdata) do
begin I:=pos('1A1A',txtdata); 
substring:= copy(txtdat,1,I-1);
form1.Listbox1.items.add(substring);
delete(txtdat,0,I-1);
delete(txtdat,0,4); //Hier wird nur das Trennzeichen gelöscht
end;