[Dimo444ka]

вот сделал процедуру для кнопки
procedure TForm1.Button2Click(Sender: TObject);
begin
S := Memo1.Lines.Text;
if S <> '' then
OemToChar(@S1[1], @S1[1]);
end;

S,S1:String - это так?
почему то не перекодировывает...