Delphi ValueListEdytor

[Modnar23]

Chce zrobić przesuwanie wierszy w górę i w dół w komponencie ValueListEdytor - dokładnie tak jak w liście dodawania stałych w Game Makerze.

 

Kombinowałem z zamianą wierszy, ale nie mogę zmienić wartości bieżącego wiersza "Edytor.Row" na nową. Ten kod powoduje tylko zamianę wierszy.Może znacie lepszy sposób?

 

procedure TForma.DoGoryClick(Sender: TObject);
var
  Kopia : string;
begin

  Kopia := Edytor.Values[Edytor.Keys[Edytor.Row]]; //kopia przesuwanego 

  //zamiana z sąsiadem
  Edytor.Values[Edytor.Keys[Edytor.Row]] := Edytor.Values[Edytor.Keys[Edytor.Row - 1]];
  Edytor.Values[Edytor.Keys[Edytor.Row - 1]] := Kopia; //wstaw wyżej przesuwanego

  Edytor.Row := Edytor.Row + 1 //Błąd!!!

end;