كيغية أخذ لرقم بدون فراغات من مكون maskedit

[I3CT]

PHP كود :

function TrimIt2(const S: string): string;
var
  str: string;
  x: byte;
begin
  for x := 1 to Length(S) do
  begin
    if S[x] in ['0'..'9', 'D', 'A'] then
      str := str + S[x];
  end;

  Result := str;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := TrimIt2(Edit2.text);
end; 


لاحظ معي مكان التغيير في الدوال TrimIt و TrimIt2