программитсы хелп дельфи 7 как считать с консоли текст!

у меня программа в которой при нажатии на кнопку открывается консоль вот код
var
s: string;
begin
AllocConsole;
try
Write('Hello LOGIN:');
readln (s)
finally
FreeConsole;
как сделать так чтобыпосле ввода текста и нажатие на интер у мя в переменную записалось это значение либо в Label