Своя функция ReadLN

[DelhiProgramer]

Мне понадобилось написать функцию типа консольного Read (ReadLN) но для TMemo
Во-первых как это вообще сделать, во-вторых как сделать так, чтобы вызывая ReadLN вызывалась из моего юнита а не из System?
Функция _ReadLn из модуля System использует TTextRec, а сама вообще на ассемблере

[Stilet]

Во-первых как это вообще сделать

function Readln:String;
begin Result:='';
 with Memo1 do begin
  if Count=0 then exit;
  Result:=Lines[0];
  Delete(0);
 end;
end;

во-вторых как сделать так, чтобы вызывая ReadLN вызывалась из моего юнита а не из System?

Пиши полный путь:
ИмяТвоегоМодуля.Readln;

[DelhiProgramer]

function Readln:String;
begin Result:='';
with Memo1 do begin
if Count=0 then exit;
Result:=Lines[0];
Delete(0);
end;
end;
Мне надо чтоб можно было написать readln(r: integer); то есть можно было не только строки, но и вообще всё, что можно напечатать

[Stilet]

то есть можно было не только строки, но и вообще всё, что можно напечатать

Можешь обьяснить зачем тебе это.
Readln это не просто процедура, это скорее системная инструкция. Так вот запросто ее повторить не просто.

[DelhiProgramer]

Приведу пример где это реализовано:
Pascal ABC - написан на Delphi 5(6). Там модуль CRT - просто окно. Он на канву текст выводит. Но дисассемблер не всё показывает...Как они туда запёрли свой реадлн
Что касается системных инструкций то ReadLN:

procedure _ReadLn(var t: TTextRec);
asm
// -> EAX Pointer to text record

        PUSH     EBX
        MOV      EBX,EAX
@@loop:
        MOV      EAX,EBX
        CALL     _ReadChar

        CMP      AL,cLF            // accept LF as end of line
        JE       @@exit
        CMP      AH,cEOF
        JE       @@eof
        CMP      AL,cCR
        JNE      @@loop

        MOV      EAX,EBX
        CALL     _ReadChar

        CMP      AL,cLF            // accept CR+LF as end of line
        JE       @@exit
        CMP      AH,cEOF           // accept CR+EOF as end of line
        JE       @@eof
        DEC      [EBX].TTextRec.BufPos
        JMP      @@loop            // else CR+ anything else is not a line break.

@@exit:
@@eof:
        POP      EBX
end;