Source position: dialogs.inc line 558
procedure THistory.RecordHistory(
const S: Sw_String
); virtual;