Hola Kastore.
Te pongo un ejemplo, que seguramente me costará un tirón de orejas del amigo Caral...
Código Delphi
[-]
...
implementation
function GetSerie: TStrings; var
ts: TStrings;
i: Integer;
begin
Randomize;
ts:= TStringList.Create;
ts.Add(IntToStr(Random(10))); for i:= 2 to 5 do ts.Add(IntToStr((Random(10))+i*10));
Result:= ts;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines:= GetSerie;
Memo1.Lines.SaveToFile('C:\NUMEROS.TXT'); end;
Si decidís guardar varias series, tendrás que trabajar sobre las comprobaciones de igualdad...
Saludos.