Генерация из текстовых файлов

//////////////////Процедура по которой мы получаем данные из текстовых файлов
procedure Gen(s: String; E: TEdit);
var L: TStringList;
begin
 L := TStringList.Create;
 if not FileExists(s)
  then E.Text :='Файл не найден - если нет файлов: fam.txt,nam.txt, ot.txt'
  else begin
        L.LoadFromFile(s);
        if L.Count = 0
         then E.Text := 'Файл пустой'
         else E.Text := L.Strings[Random(L.Count)];
       end;
 L.Free;
end;
 
//////////////////Где:
fam.txt - текстовый файл в котором список фамилий
nam.txt - текстовый файл в котором список имен
ot.txt - текстовый файл в котором список отчеств
 
///////Процедура генерации
procedure TForm1.Button1Click(Sender: TObject);
var
  f1:TextFile;
  s:string;
  L:TStringList;
  i:integer;
begin
L:=TStringList.Create;
 Gen('fam.txt', Edit1);
 Gen('nam.txt', Edit2);
 Gen('ot.txt', Edit3);
 
 L.Add(s);
 L.SaveToFile('321.txt');
end;
 
////////////////// Где:
В [B]Edit1[/B] - Выводятся рандомные фамилия из файла: [B]fam.txt[/B]
В [B]Edit2[/B] - Выводятся рандомные имена из файла: [B]nam.txt[/B]
В [B]Edit3[/B] Выводятся рандомные отчества из файла: [B]ot.txt[/B]

for i := 1 to SpinEdit1.Value do
 begin
  Gen('fam.txt', Edit1);
  Gen('nam.txt', Edit2);
  Gen('ot.txt', Edit3);
  L.Add(s); //??? А что такое это s - я не знаю!!!
 end;

uses ..., Math;
...
function Gen(s: String): String;
var L: TStringList;
begin
 L := TStringList.Create;
 L.LoadFromFile(s);
 result := L.Strings[RandomRange(0, L.Count)];
 L.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    List: TStringList;
begin
 if (not(FileExists('fam.txt'))) or (not(FileExists('nam.txt'))) or (not(FileExists('ot.txt'))) then
  begin
   ShowMessage('Отсутствуют еобходимые файлы');
   Exit;
  end;
 List := TStringList.Create;
 for i := 1 to SpinEdit1.Value do
  List.Add(Format('%s %s %s', [Gen('fam.txt'), Gen('nam.txt'), Gen('ot.txt')]));
 List.SaveToFile('321.txt');
 List.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;