Действия с типизированными файлами

procedure TForm1.Button1Click(Sender: TObject);
var f:file of char;
    a,b:char;
    i:integer;
begin
//создадим файл
assignfile(f,'symbol');
rewrite(f);
//и заполним его строчными латинскими буквами
for a:='A' to 'Z' do
 begin
  write(f,a);
  Edit1.Text:=Edit1.Text+a; //выведем в 1 Эдит
 end;
//переставим
reset(f);
for i:=0 to (filesize(f)-1) div 2 do
 begin
  seek(f,i);
  read(f,a);
  seek(f,filesize(f)-1-i);
  read(f,b);
  seek(f,i);
  write(f,b);
  seek(f,filesize(f)-1-i);
  write(f,a);
 end;
//прочитаем
reset(f);
while not eof(f) do
 begin
  read(f,a);
  Edit2.Text:=Edit2.Text+a;//и выведем во 2 Эдит
 end;
closefile(f);
end;

uses ..., StrUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
var L: TStringList;
begin
//Создаем СтрингЛист
 L := TStringList.Create;
//Заполняем его символами из Эдит1
 L.Text := Edit1.Text;
//Сохраняем в файл 1.тхт
 L.SaveToFile('1.txt');
//Переворачиваем
 L.Text := ReverseString(L.Text);
//Выводим в Эдит2
 Edit2.Text := L.Text;
//Сохраняем перевернутый текст в другой файл
 L.SaveToFile('2.txt');
//Удаляем СтрингЛист
 L.Free;
end;