Ошибка с кодировкой.

procedure SaveSeries (var StringGrid:TStringGrid;
                      var Arr: TArray;
                      Sorted:boolean);
var filename,FilePrefix:string;
    i:Integer;
begin
if StringGrid.Cells[0,0]='' then
begin
  MessageBox(MainForm.handle,PChar('Сохранять нечего!'),
        'Внимание',MB_OK + MB_ICONINFORMATION);
  exit
end; //endif
If MessageBox(MainForm.handle,
PChar('Вы действительно хотите сохранить последовательность?'),
                        'Внимание',MB_YESNO + MB_ICONQUESTION)=IDNO then
  begin
    MessageBox(MainForm.handle,PChar('Файл не был сохранен!'),
              'Внимание',MB_OK + MB_ICONINFORMATION);
    exit;
  end; //endif
i:=0;
if sorted then FilePrefix := 'Sorted Series('
          else FilePrefix := 'Series X(';
//Поиск имени несуществующего файла, чтобы в него записать последовательность
repeat
  inc(i);
  filename:=FilePrefix+IntToStr(i)+').txt';
until NOT(fileexists(filename));
AssignFile(OutPut,filename);
Rewrite(OutPut);
for i := 0 to StrToInt(MainForm.EditNumber.Text)-1 do
  write(OutPut,IntToStr(Arr[i])+' ');
closefile(OutPut);
MessageBox(MainForm.handle,PChar('Файл был сохранен в папке с программой под именем '
                        +filename),'Сообщение',MB_OK + MB_ICONINFORMATION);
end;  //END OF PROCEDURE