كيف يمكن السماح في كتابة spaces مرة واحدة في Edit

[justnick]

السلام عليكم ورحمة الله
فى الحدث onKeyPress الخاص بالمكون Edit

استخدم الكود التالى

PHP كود :

var
 myStr : string;
begin
 myStr := Edit1.Text;
  if (Trim(Edit1.Text) = '') and (Key = #32) then
    begin
     Key := #0;
     Exit;
    end;

  if (Edit1.SelStart > 0) and (Key = #32) then
   if (myStr[Edit1.SelStart] = ' ') or (myStr[Edit1.SelStart + 1] = ' ') then
    begin
     key := #0;
     Exit;
    end;
end;