[Alegun]

Вроде нет, но можно псевдо

Код:

var
i: integer;
begin
for i:= 0 to Memo1.Lines.Count-1 do
Memo1.Lines[i]:= IntToStr(i+1) + '. ' + Memo1.Lines[i];
end;