How to remove emojis from a Delphi string

Question

My question is simple as that : if a string has a emoji inside it, how to remove it and return all contents of the string BUT the emojis ?

function removeEmoji(s : string);
begin
// supose s := 'Testing ??';
// i need to return only 'Testing';
end;

question from:https://stackoverflow.com/questions/65928969/how-to-remove-emojis-from-a-delphi-string

Answer 1

Waitting for answers