Button repeat

[calvinruka]

procedure TForm1.Button1Click(Sender: TObject);
begin
HandleOp ('1');
result.caption := '1';

This code can only  display '1' once i press 1 a time but when i press 2 or more times, it still reamain display 1 only. I wan make it the code can display more 1 whenever i press howmany times.
Example: i hit 1, display 1
             i hit 3 time 1, display 111

but my code cant.... any clue?

[theo]

result.caption := result.caption+'1';

;-)