Excluir Header e Trailer de TXT

procedure TForm1.btn1Click(Sender: TObject);
var Arquivo, Campos: TStringList;
    I, N: Integer;
begin
  Arquivo := TStringList.Create;
  Campos  := TStringList.Create;

  Arquivo.LoadFromFile(´d:\dados\arquivo.txt´);

  N := Arquivo.Count-1;

  for I := 0 to N do
  begin
    if (I>2) and (I<N) then // Diferente de header e trailler
    begin
      Campos.Clear;
      SplitString(Arquivo[I], ´|´, Campos);

      Campos[0];  // Sucursal
      Campos[1];  // Apólice
      Campos[2];  // Item
      Campos[3];  // Endosso
      Campos[4];  // Marca
      Campos[5];  // Modelo

    end;

  end;

  Campos.Free;
  Arquivo.Free;


end;
Function IScan( ch: Char; Const S: String; fromPos: Integer ): Integer;
var i: Integer;
Begin
  Result := 0;
  For i := fromPos To Length(S) Do
  Begin
    If S[i] = ch Then Begin
      Result := i;
      Break;
    End;
  End;
End;

Procedure SplitString( Const S: String; separator: Char; substrings: TStringList );
var i, n: Integer;
Begin
  If Assigned( substrings ) and ( Length( S )>0 ) Then
  Begin
    i:= 1;
    Repeat
      n := IScan( separator, S, i );
      If n = 0 Then
        n:= Length( S )+1;
      substrings.Add( Copy( S,i,n-i ));
      i:= n+1;
    Until i>Length( S );
  End;
End;

procedure TForm1.Button1Click(Sender: TObject);
var
  ArqEnt: TextFile;
  ArqSai: TextFile;
  Linha: String;
  NomeEntrada: String;
  NomeTemp: String;
begin
  NomeEntrada := ´C:\Teste.txt´;
  NomeTemp := ´C:\Teste.tmp´;
  Reset(ArqEnt,NomeEntrada);
  ReWrite(ArqSai,NomeTemp);
  ReadLn(ArqEnt,Linha);
  ReadLn(ArqEnt,Linha);
  ReadLn(ArqEnt,Linha);
  while not eof(ArqEnt) do
  begin
    ReadLn(ArqEnt,Linha);
    if UpperCase(Copy(Linha,1,3)) = ´FIM´ then Break;
    WriteLn(ArqSai,Linha);
  end;
  CloseFile(ArqEnt);
  CloseFile(ArqSai);
  DeleteFile(NomeEntrada);
  RenameFile(NomeTemp,NomeEntrada);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  with TStringList.Create do
  begin
    LoadFromFile(´d:\dados\arquivo.txt´);
    Delete(0); // Remove a primeira linha na posição 0 e reorganiza
    Delete(0); // Remove a segunda linha que agora está na posição 0 e reorganiza
    Delete(0); // Remove a terceira linha que agora está na posição 0 e reorganiza
    Delete(Count-1); // Remove a última linha
    SaveToFile(´d:\dados\arquivo.txt´);
  end;
end;