TÉMA:

Nem tudom miért van áthúzva a beillesztett kódod vége, de amennyi így elsőre is látszik, hogy az értékeknél nincs indexelés, pedig nem ártana... 

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ValEdit, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ValueListEditor1: TValueListEditor;
    procedure Button1Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
          Var
             L : LongInt;
             S : String;
begin
  button1.enabled := false;
  For L := 1 to 5000 do begin
    S := IntToStr(L);
    ValueListEditor1.Keys[L] := S;
    ValueListEditor1.Values := IntToStr(Random(100));
  end;
  button1.Enabled := true;
end;

end.
   

 


Nálam, pici hibával fut le, az 1. szám a Values mezőben üres ...