nuevo en delphi

[ecfisa]

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; // devuelve 5 números no consecutivos
var
  ts: TStrings;
  i: Integer;
begin
  Randomize;
  ts:= TStringList.Create;
  ts.Add(IntToStr(Random(10))); // valores de 0 al 10
  for i:= 2 to 5 do             // valores de 20 a 60
    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'); // guarda los 5 números a un .txt
end;

Si decidís guardar varias series, tendrás que trabajar sobre las comprobaciones de igualdad...
Saludos.