办法不只一种，下面这种供你参考：

procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  Str, Temp : string;
begin
  SetLength(Str, 0);
  AssignFile(F, 'c:\jsp\B.txt');
  Reset(F);
  while not Eof(F) do begin
    ReadLn(F, Temp);
    Str := Str + #10 + Temp;
  end;
  CloseFile(F);
  Move(Str[2], Str[1], Length(Str)-1);
  SetLength(Str, Length(Str)-1);
  AssignFile(F, 'c:\jsp\AA.txt');
  ReWrite(F);
  WriteLn(F, Str);
  CloseFile(F);
end;