In meinem D2009 gehts so:
Delphi-Quellcode:
var
e : TEncoding;
begin
e := TMBCSEncoding.Create(28591); //ISO8859_1
try
AContext.Connection.IOHandler.WriteLn('töst', e);
sleep(1000)
finally
e.Free;
end;
end;
Inwieweit das bei D7 klappt ... musst du ausprobieren