Wenn du >= Delphi 2005 hast, funktioniert auch das:
Delphi-Quellcode:
type
TClientHelper = class helper for TIdTCPClient
public
procedure WriteLnAlternate(s: string);
end;
procedure TClientHelper.WriteLnAlternate(s: string);
begin
Write(s + #10);
end;