Una facil: Como leo de stdin linea por linea?

[mamcx]

Por fin me toco llorar a mi! Llevo un rato desempolvando mi delphi y no veo como hacer que me funcione la lectura directa de stdin, como en:

 ls | AppDelphi.exe

Logro que me lea la primera linea:

Código Delphi [-]
program A2Test;

var
  line: String;
begin
  ReadLn(line);
  writeln(line);
end.

end.

Pero no veo como hacer el ciclo y leer todas las que vengan.

Ya busque un monton en google y lo que hay es para redireccionar output de llamada de delphi a linea de comandos. Lo que busco es pasar el StdOut de un comando a el StdIn de la app en delphi/freepascal