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

function Suchen: String;
var Str, Str2: String;
      I:            Integer;
begin
 Str := '000000159744|000313856|advertise-75\startupa.img' ; 
 I    := length(str);

 //nach dem ersten "|" suchen
 for I := 1 to I-1 do 
   begin
     if str[i] = '|' then
        begin
           break;
         end
      else
      str2 := str2 + str[i];
    end;
    Result := str2;
end;                    

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

procedure TForm1.Button1Click(Sender: TObject);
var
  x : Integer;
  MyExpl : TStringDynArray;
  S, FileName, offset, size : String;

begin
for X := 0 to memo1.Lines.Count - 1 do
 begin
  S              := memo1.Lines[x];
  MyExpl      := Explode('|', S);
  edit1.Text  := MyExpl[0];
  edit2.Text  := MyExpl[1];
  edit3.Text  := MyExpl[2];
  offset        := MyExpl[0];
  size           := MyExpl[1];
  FileName    := MyExpl[2];
 end;

end;                    

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

procedure Split(FileName,SplitFileName : TFileName; SizeofFile : Integer);
var
  i : Word;
  fs, sStream: TFileStream;
  SplitFileName: String;
begin
 fs := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    begin
      sStream := TFileStream.Create(SplitFileName, fmCreate or fmShareExclusive);
      try
        if fs.Size - fs.Position < SizeofFile then
          SizeofFiles := fs.Size - fs.Position;
        sStream.CopyFrom(fs, SizeofFile);
        finally
        sStream.Free;
      end;
    end;
  finally
    fs.Free;
  end;
end;