Problem 2.2 - economic programming

Hi all

I have successfully completed problem 2.2 in the Delphi book. My questions arises around the coding of the "Clear all" button we are requested to put in the form.

I have used the following code which - to all intense purposes - delivers what the questions asks but i can t help thinking that there must be a better (economical) way of reusing properties or code already set up. Any ideas?

procedure TfrmTexDemo.btnClearClick(Sender: TObject);
begin
lblName.Caption := 'Name';
lblDpt.Caption := 'Department';
lblBirth.Caption := 'Birth Date';
edtText.Clear;
edtText.Setfocus;
end;

end.

Solutions available at the following url :

http://www.oxford.co.za/cws/sciences/delphi/625184.htm

Regards
Derek

You can be using a bitmap button - this will eliminate the coding and do it automatically. But this was not the instructions