Официальный форум Simple-Scada.
var I: Integer; aString, aResult: string; begin aResult := ''; aString := 'WORD'; for I := 1 to Length(aString) do aResult := aResult + IntToHex(Ord(aString[i]), 4); // здесь aResult = 0057004F00520044end.