[Freeman]

По-нормальному должно быть как-то так:

Код:

procedure TForm1.btnWriteClick(Sender: TObject);
var
  s: string;
begin
  if zRedirect <> nil then
  begin
    s := edInput.Text + sLineBreak;
    if rgCharset.ItemIndex = 1 then
      SetCodePage(s, GetOEMCP, True);
    zRedirect.WriteData(s);
    edInput.Text := '';
  end;
end;

procedure TRedirectThread.WriteData(Data: RawByteString); // переопределил!
var
  Written: Cardinal;
begin
  if hWriteIn <> 0 then
    WriteFile(hWriteIn, Data[1], Length(Data) * StringElementSize(Data), Written, nil);
end;