Ошибка преобразования кодировки

[ipdd]

При выполнении следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var fi: TextFile;
i: Integer;
str,str1: PChar;
stroka: String;
begin
if SaveDialog1.Execute then
   begin
   AssignFile(fi,SaveDialog1.FileName);
   Rewrite(fi);
   Write(fi,#27);
   Write(fi,#99);
   Write(fi,#48);
   Write(fi,#4);
   for i:=0 to Memo1.Lines.Count do
      begin
      str:=PChar(Memo1.Lines[i]);
      ANSIToOEM(str,str1);
      WriteLn(fi,str1); 
     end;
   Write(fi,#12);
   CloseFile(fi);
   end;
end;

Выдает следующую ошибку:

Project1.exe raised exception class EAccessViolation with message 'Access violation at adress 77D3AF1D in module 'user32.dll'. Write of adress 00403767'

Что не так?

[Stilet]

Правильно ругается.
Pchar - это указатель, кто для него память выделять должен? а? Правильно! Пушкин.
Телефончик его дать?

Если нет то пиши так:

var fi: TextFile;
i: Integer;
str,str1: PChar;
stroka: String;
begin
if SaveDialog1.Execute then
   begin
   AssignFile(fi,SaveDialog1.FileName);
   Rewrite(fi);
   Write(fi,#27);
   Write(fi,#99);
   Write(fi,#48);
   Write(fi,#4);
   for i:=0 to Memo1.Lines.Count do
      begin
      stroka:=PChar(Memo1.Lines[i]);
      CharToOEM(@stroka[1],@stroka[1]);
      WriteLn(fi,stroka);
     end;
   Write(fi,#12);
   CloseFile(fi);
   end;
end;

[ipdd]

Сообщение от Stilet

Правильно ругается.
Pchar - это указатель, кто для него память выделять должен? а? Правильно! Пушкин.
Телефончик его дать?
[/CODE]

Блин, десять тысяч спасибо! Сейчас все переделаю! Только вот если можно (мне для общего развития), объясните пожалуйста, почему для типа PChar нужно использовать указатели, а для других типов (Integer, String и т. п.) - не обязательно и можно просто использовать переменные указанных типов?...

[Stilet]

А потому что см. что я писал о нем выше, и читай литературу о указателях, как, когда и почему их используют.