procedure TForm1.dOPCEventServer1Event(Sender: TObject; Event: TdOPCEvent); begin Memo1.Lines.Insert(0,(format('%s %s (%s)', [DateTimetoStr(Event.Time),Event.Msg,Event.Source]))); end;