Ausgabe (Text) automatisch unterstreichen lassen?

[omata]

Die Idee ist folgende...

Delphi-Quellcode:

procedure MyWriteLn(text:string);
var i:byte;
begin
  writeln(text);
  for i:=1 to length(text) do
    write('-');
  writeln;
end;

Gruss
Thorsten