Memo i OpenDialog

Witam,
Chciałbym przy czytaniu pliku dodać na początku każdego wiersza jego numer.
Na przykład, dla pliku

Linijka1
Linijka2

Żeby wypisało

1. Linijka1
2. Linijka2

Mam taki kod i nie wiem jakimi funkcjami mógłbym taki efekt osiągnąć:

procedure TForm1.Button2Click(Sender: TObject);
begin
  saveDialog1.DefaultExt := 'txt';
 if OpenDialog1.Execute then begin
  Edit1.text:='Odczytano : '+OpenDialog1.FileName;
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
 end;
end;

Pętla od zera do Memo1.Lines.Count-1
 Memo1.Lines[(zmienna pętli)] := (zamiana na integer zmiennej "I") + Memo1.Lines[(zmienna pętli)];

var aa: integer;
begin
if opendialog1.Execute then Begin
  memo1.Lines.LoadFromFile(opendialog1.FileName);
    for aa := 1 to memo1.Lines.Count do BEGIN
      memo1.Lines.Strings[aa-1]:=inttostr(aa)+'. '+memo1.Lines.Strings[aa-1]
    END;
End;