updown c не целым шагом

[MOMOTOCHEK]

Здравствуйте!
у меня есть updown. минимальное значение 0, максимальное-1. то есть может быть только 2 позиции. с edit я его не связывала с помощью Associate, потому что мне нужно чтобы при updown1.Position=0 выводилось в edit значение 00:10, а при updown1.Position=1 edit.text:=time tostr('00:30'). (то есть не целый тип)
я создала масив

setlength(krok,2);
krok[0]:=strtotime('00:10');
krok[1]:=strtotime('00:30');

и кнопку

procedure TForm1.Button5Click(Sender: TObject);
var klklk:integer;
begin
klklk:=updown1.Position;
edit2.Text:=timetostr(krok[klklk]);
end;

как сделаь так что бы сразу при смене updown1.Position выводилось соответствующее значение в edit без нажатия кнопки.
пробовала в UpDown1OnClick писать Button5Click не помогло.

[Stilet]

пробовала в UpDown1OnClick

Опиши это в OnChanging а не в клике

[MOMOTOCHEK]

в OnChanging тоже не подходит..

[phomm]

а так ? у меня собственно работает, только почему-то щелкать по 2 раза надо

var
  Form1: TForm1;
  krok: array [0..1] of tdatetime;
implementation

{$R *.dfm}

procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);

var klklk:integer;
begin
klklk:=updown1.Position;
edit1.Text:=timetostr(krok[klklk]);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
krok[0]:=strtotime('00:10');
krok[1]:=strtotime('00:30');
end;

всё что до этого кода - дельфи автоматом создает, вам только надо щелкнуть дважды по событию Onchanging в инспекторе объектов для Updown'a, ну и oncreate формы , но у вас оно ведь и так где-то задается, сделайте, как Вам надо

[MOMOTOCHEK]

Спасибо большое!!!!!!с Delphi работаю недавно - не знала как с OnChanging правильно работать.