How to remove emojis from a Delphi string

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;