procedure TForm1.StringsChange(Sender: TObject);
begin
  ShowMessage(TStrings(Sender).Text);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  with TStringList.Create do try
    OnChange := StringsChange;
    Text := 'No.1';
    Text := 'No.2';
    Text := '干什么用?就看你怎么用';
  finally
    Free;
  end;
end;