program Test;

uses KOL;

var Editbox, Button: PControl;

procedure ButtonClick(Dummy: Pointer; Sender: PObj);
begin
 if Editbox.DoSetFocus then
   Editbox.SelectAll;
end;

begin
 Applet := NewForm(nil, 'Test');
 Editbox := NewEditbox(Applet, [eoReadonly, eoMultiline]);
 with Editbox^ do
 begin
   Color := clWindow;
   Text := 'Click button' + #$0D#$0A + 'to select' + #$0D#$0A + 'all text.';
 end;
 Button := NewButton(Applet, 'Select All');
 with Button^ do
 begin
   PlaceDown;
   OnClick := TOnEvent(MakeMethod(nil, @ButtonClick));
 end;
 Run(Applet);
end.