[Decoding]

Попробуй так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  _Input, _Output: PChar;
begin
   GetMem( _Input, 256 );
   GetMem( _Output, 256 );
   _Input := 'Строка в DOS кодировке';
   OemToChar( _Input, _Output );
   Edit1.Text := _Output;
end;