компонент Memo1 Кнопка и Два Edit

[saivs]

Допустим у меня Edit1 Edit2 Кнопка и Memo1
Мне нужно так
Допустим в Edit1 Я ввёл числа 1234567
А в Edit2 я ввёл аб3%ь23
И нажал на кнопку и в Memo1 Должно появиться такое
Текст, "То что я ввёл в Edit1" ,текст, " шифр из Edit2 Допустим оно = 12-34.12:1" дальше текст и в конце по порядку мной загаданные фразы Допустим:
Я
он
она
оно
вы
мы
И тд. по порядку

[evg_m]

и в Memo1 Должно появиться такое
1. в одну строку

Memo1.Text:= '....' //Текст,
 + Edit1.Text // "То что я ввёл в Edit1", 
  + '....' //текст,
 + Shifr(Edit2.Text) // " шифр из Edit2 Допустим оно = 12-34.12:1" 
 + '....'  дальше текст 
 + fraselist.Text; // и в конце по порядку мной загаданные фразы

2.все на отдельных строчках

Memo1.Clear;
Memo1.Lines.Add('....'); //Текст,
Memo1.lines.Add( Edit1.Text ); // "То что я ввёл в Edit1", 
Memo1.lines.Add('....'); //текст,
Memo1.Lines.add( Shifr(Edit2.Text) );// " шифр из Edit2 Допустим оно = 12-34.12:1" 
Memo1.Lines.Add('....');  дальше текст 
Memo1.Lines.AddStrings( fraselist ); // и в конце по порядку мной загаданные фразы

Но перед этим где-то должно быть составление этого самого списка фраз (возможно так).

FraseList:=TStringList.Create; //Допустим:
FraseList.add('..') //Я
FraseList.add('..') //он
FraseList.add('..') //она
FraseList.add('..') //оно
FraseList.add('..') //вы
FraseList.add('..') //мы
..... // И тд. по порядку

[saivs]

Сообщение от evg_m

и в Memo1 Должно появиться такое
1. в одну строку

Memo1.Text:= '....' //Текст,
 + Edit1.Text // "То что я ввёл в Edit1", 
  + '....' //текст,
 + Shifr(Edit2.Text) // " шифр из Edit2 Допустим оно = 12-34.12:1" 
 + '....'  дальше текст 
 + fraselist.Text; // и в конце по порядку мной загаданные фразы

2.все на отдельных строчках

Memo1.Clear;
Memo1.Lines.Add('....'); //Текст,
Memo1.lines.Add( Edit1.Text ); // "То что я ввёл в Edit1", 
Memo1.lines.Add('....'); //текст,
Memo1.Lines.add( Shifr(Edit2.Text) );// " шифр из Edit2 Допустим оно = 12-34.12:1" 
Memo1.Lines.Add('....');  дальше текст 
Memo1.Lines.AddStrings( fraselist ); // и в конце по порядку мной загаданные фразы

Но перед этим где-то должно быть составление этого самого списка фраз (возможно так).

FraseList:=TStringList.Create; //Допустим:
FraseList.add('..') //Я
FraseList.add('..') //он
FraseList.add('..') //она
FraseList.add('..') //оно
FraseList.add('..') //вы
FraseList.add('..') //мы
..... // И тд. по порядку

У меня ещё вопрос по шифру как сделать его разгадку допустим
1=а
2=б
3=в
и тд

[Mad_Cat]

1='а';
2='б';

число:=ord(символ)+1-ord('а');

символ:= chr(число+ord('а')-1);

[saivs]

Сообщение от Mad_Cat

число:=ord(символ)+1-ord('а');

символ:= chr(число+ord('а')-1);

Спасибо!!!

[saivs]

Мне бы ещё точнее мной загаданными фразами
У меня их очень много и не очень удобно подставлять каждую может есть аналогичный способ