s2String =type TShiftState = set of ( ssShift ssAlt ssCtrl ssLeft ssRight
ssMiddle ssDouble ssMeta ssHyper ssAltGr ssCaps ssNum
ssScroll ssTriple ssQuad ssExtra1 ssExtra2 );
Notes: This type is used when describing a shortcut key or when describing what special keys are pressed on a keyboard when a key event is generated. The set contains the special keys that can be used in combination with a 'normal' key.
sCOPY ='*M1 uses ... classes; type TShiftState = set of ( ssShift ssAlt ssCtrl ssLeft ssRight ssMiddle ssDouble ssMeta ssHyper ssAltGr ssCaps ssNum ssScroll ssTriple ssQuad ssExtra1 ssExtra2 ); Notes: This type is used when describing a shortcut key or when describing what special keys are pressed on a keyboard when a key event is generated. The set contains the special keys that can be used in combination with a ''normal'' key.'
The spaces inside the left '(' and right ')' are not set to one 1 space.
s2String:=sCopy;
sCopy:=DelSpace1(s2String);