[RussianBoy]

Доброго времени суток посетители форума .
Возник вопрос по поводу записи результатов полного перебора символов в текстовый файл . Программа выводит результаты перебора в Memo1 , не могу переделать под вывод в файл , присутствует "подпрограмма" вывода слова "Hello" в файл ( набросок ) . В комментариях выразил свою идею по реализации . Собственно код программы :

Код:

procedure TForm1.Button1Click(Sender: TObject);
var

Abc : array [1..15] of char;
a,b,c,d,e,f,g,h,i,j: integer;
                                          // думаю сдесь надо 
myFile:TextFile;                      инициализировать переменную
text:string;

begin
 Abc[1]:='k';
 Abc[2]:='a';
 Abc[3]:='r';
 Abc[4]:='i';
 Abc[5]:='0';
 Abc[6]:='1';
 Abc[7]:='2';
 Abc[8]:='3';
 Abc[9]:='4';
 Abc[10]:='5';
 Abc[11]:='6';
 Abc[12]:='7';
 Abc[13]:='8';
 Abc[14]:='9';
 Abc[15]:='n';

    for a:= 1 to 15 do
     for b:= 1 to 15 do
begin
Memo1.Lines.Add(Abc[a]+Abc[b]);
                                                    // сдесь присвоить значение 
text:='c:\Test.txt' ;                            вышеуказанной переменной 
AssignFile(myFile,text);                      переменной (Abc[a]+Abc[b])
ReWrite(myFile);
Append(myFile);
WriteLn(myFile,'hello');         // вывести значение переменной в файл 
CloseFile(myFile);
end;



end;

Заранее спасибо )))