procedure TForm1.dOPCEventServer1EndUpdate(Sender: TObject); var Event: TdOPCEvent; i : integer; begin Memo1.Clear; for i := 0 to dOPCEventServer1.Events.Count-1 do begin Event := dOPCEventServer1.Events[i]; Memo1.Lines.Add(format('%s %s (%s)', [DateTimetoStr(Event.Time),Event.Msg,Event.Source])); end; end;