{
GetCharsetValues example
The following uses the GetCharsetValues procedure to fill a string list with the names of all the available character set constants. This string list can then be used to allow the user to select a character set.
Here is the callback that adds the character sets to the string list:
} 
procedure TForm1.AddCharacterSet(const S: string);
begin
  CharSetList.Add(S);
end;
{
Here is the code that creates the string list, fills it, and sorts the character set names.
}
CharSetList := TStringList.Create;
GetCharsetValues(AddCharacterSet);
CharSetList.Sort; 
