stdin.readline

[suatu]

Hi,
Can someone tell me the equivalent of the following
wbscript code in Delphi.

====================================
Set StdOut = WScript.StdOut
Set StdIn = WScript.StdIn

Dim InputString
Do While Not StdIn.AtEndOfStream
InputString = StdIn.ReadLine
Loop
====================================

Regards,Suat.