[OSIRIS]

заработал вот такой код:

Код:

function StrAnsiToOem(const S: String): AnsiString;
begin
  SetLength(Result, Length(S)*2);
  AnsiToOemBuff(@S[1], @Result[1], Length(S)*2);
end;

function StrOemToAnsi(const S: String): AnsiString;
begin
  SetLength(Result, Length(S)*2);
  OemToAnsiBuff(@S[1], @Result[1], Length(S)*2);
end;

прием работает нормально, по крайней мере при старте ( запускается консольное приложение и выдает данные в подобающем виде)
однако при попытке отправить команду ничего не происходит, а при нажатии "end write" команда вроде отправляется - однако обрезается по ходу дела до 1 символа
исправленные исходники могу приложить или выложить какую либо часть кода