[Delphi] stdout i stderr aplikacji konsolowej

Znalazłem na jednej ze stron internetowych kod modułu RunApp, który rozwiązuje problem z przekazywaniem stdout i stderr aplikacji konsolowej do programu.
Mam problem z odczytaniem informacji zwracanych przez stdout i stderr.

W module użyte jest
TYPE TMMessageEvent = PROCEDURE(Info: STRING; Sender: TObject) OF OBJECT;

zadeklarowałem swoje zmienne std_out i std_err:

var std_out,std_err : TMMessageEvent; run('Tidy.exe','-raw',sciezka,true,std_out,std_err);

ale nie wiem czy dobrze i jak mam zwrócić informację Info: STRING ?
Czy powinienem utworzyć w tym celu procedurę

procedure std_out(Info: STRING; Sender: TObject); begin np. listbox1.items.add(info); end;

czy może coś o zbliżonej konstrukcji?

Proszę o wyrozumiałość. Jestem programistą amatorem ;)
Użytkownik Janusz T. edytował ten post 07 luty 2009, 09:57

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl