Файлы, отображение в память OC Windows

function UpperAllFirstSymb(AInputStr: string): string;
var
  i: integer;
begin
  result := '';
  for i := 1 to length(AInputStr) do
    if (i = 1) or ((i > 1) and (AInputStr[i - 1] = ' ')) or ((i > 1) and (AInputStr[i - 1] = '.')) then
      result := result + AnsiUpperCase(AInputStr[i])
    else  result := result + AInputStr[i];
end;
 
procedure Tform_MainForm.ChangeFileCase;
 
var
  FFileHandle: THandle;
  FMapHandle: THandle; 
  FFileSize: Integer; 
  FData: PByte;
  PData: PChar; 
begin  
  
  if not FileExists(FName) then 
    raise Exception.Create('Файл не существует.') 
  else 
    FFileHandle := FileOpen(FName, 
    fmOpenReadWrite); 
  
 
  if FFileHandle = INVALID_HANDLE_VALUE then
    raise Exception.Create('Ошибка при открытии или создании файла');
  //----------------------------------------------------------------------------
  try  
    FFileSize := GetFileSize(FFileHandle, nil);
    //--------------------------------------------------------------------------
   
    FMapHandle := CreateFileMapping(FFileHandle,  nil,  PAGE_READWRITE,  0,   FFileSize, nil); 
    //--------------------------------------------------------------------------
  
    if FMapHandle = 0 then
      raise Exception.Create('Ошибка создания объекта отображения.');
  finally
  CloseHandle(FFileHandle); 
    end;
  //----------------------------------------------------------------------------
  try
       FData := MapViewOfFile(FMapHandle, FILE_MAP_ALL_ACCESS, 0,  0, FFileSize); 
    //--------------------------------------------------------------------------
       if FData = nil then
      raise Exception.Create('Ошибка представления объекта отображения в окне просмотра.');
  finally
CloseHandle(FMapHandle); 
  end;
  //----------------------------------------------------------------------------
  try
    PData := PChar(FData);
     inc(PData, FFileSize);
      PData^ := #0;
      if UCase then
      StrUpper(PChar(FData)) //переводим в верхний регистр
    else
      StrLower(PChar(FData));//переводим в нижний регистр
  finally
    //отмена проецирования данных файла на адресное пространство процессора
    UnmapViewOfFile(FData);
  end;
 
  //----------------------------------------------------------------------------
  mm_TextContents.Lines.Clear;
  mm_TextContents.Lines.LoadFromFile(FName);
end;
 
 
procedure Tform_MainForm.Button1Click(Sender: TObject);
var
  i, y, h: integer;
  s: string;
begin
  UCase := FALSE;
  y := length(mm_TextContents.lines[0]);
  label1.Caption := InttoStr(y);
  UpperAllFirstSymb(mm_TextContents.text);
end;
 
procedure Tform_MainForm.Button3Click(Sender: TObject);
var
  s1: AnsiString;
  s2: AnsiString;
  y, i: integer;
  f: TextFile;
begin
  randomize;
  s1 := AnsiLowerCase(Form_mainForm.mm_TextContents.Text);
  s2 := Form_mainForm.mm_TextContents.Text;
  for i := 1 to length(s1) do if random(2) = 1 then s2[i] := s1[i];
  Form_mainForm.mm_TextContents.Text := s2;
  s1 := AnsiUpperCase(Form_mainForm.mm_TextContents.Text);
  s2 := Form_mainForm.mm_TextContents.Text;
  for i := 1 to length(s1) do if random(2) = 1 then s2[i] := s1[i];
  Form_mainForm.mm_TextContents.Text := s2;
 
// write;
 AssignFile(f, 'te.txt');
[B]  ReWrite(f);[/B]
 // write;
 // append(f);
  WriteLn(f, mm_TextContents.text);
  showmessage('Поздравляем!Вы УСПЕШНО испортили файл:(');
 
  CloseFile(f);
 
 
end;
 
 
 
 
procedure Tform_MainForm.FormCreate(Sender: TObject);
begin
 mm_TextContents.Clear;
  mm_TextContents.Lines.LoadFromFile(FName); //загрузка текста из файла
  
  UCase := True;
 
end;
 
end.