Добавление текста в нужную строку Memo

[Lauri]

У меня код которые генерирует информацию вида

Aleksej
Dedov
Butikovskij pereulok
925
Moscow
925656663
14.05.1977
*******************************
AleDed@yandex.ru - имейл

AleDed  - логин
656663QQ40F30D7 - пароль
*******************************

вот код программы

memo7.Clear;

  randomize;
t := TStringList.Create();
t.LoadFromFile(edit1.text);
memo7.lines.add ( t[random(t.count)]);
y := TStringList.Create();
y.LoadFromFile(edit2.text);
memo7.lines.add ( y[random(y.count)]);
f := TStringList.Create();
f.LoadFromFile(edit3.text);
memo7.lines.add ( f[random(f.count)]);
f := TStringList.Create();
f.LoadFromFile(edit4.text);
memo7.lines.add ( f[random(f.count)]);
f := TStringList.Create();
f.LoadFromFile(edit5.text);
memo7.lines.add ( f[random(f.count)]);
begin
randomize;
n:= 6;
p := '';
for j:=1 to n do
    p:= p+IntToStr (random (10) + 1);
memo7.lines.Add(memo7.lines[3]+p);
end;
f := TStringList.Create();
f.LoadFromFile(edit6.text);
memo7.lines.add ( f[random(f.count)]);
 memo7.Lines.Add('*******************************');
 edit7.text:= (copy(memo7.lines[1], 1,3)) ;

memo7.lines.add(copy(memo7.text, 1,3)+edit7.text+'@yandex.ru');
 memo7.lines.add('');
 memo7.lines.add(copy(memo7.text, 1,3)+edit7.text);

begin
randomize;
 n:=StrToInt('9');
 s:='1234567890ABCDEFGHIKLMNOPQRSTVXYZ';
 for j:=1 to n do
  begin
   i:=random(length(s)) + 1;
   p:=p+s[i];
  end;
 memo7.lines.Add(p);
  end;
  memo7.Lines.Add('*******************************');

Логин и имейл состоит из первых 3 букв имени и фамилии
Задача мне нужно что б сначала генерировались имейл, логин а потом пароль.
что то типа

AleDed@yandex.ru 

AleDed 
656663QQ40F30D7
*******************************
Aleksej
Dedov
Butikovskij pereulok
925
Moscow
925656663
14.05.1977
*******************************

[Don Karleone]

memo7.lines.insert(0,'************* ********');
memo7.lines.insert(0,'сдесь должен быть логин');
memo7.lines.insert(0,'');
memo7.lines.insert(0,'сдесь должен быть email');

функция insert - первый параметр это индекс строки, а второй параметр - строка, которую надо вставить под этим индексом.