Запрет ввода Пробела в Edit

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: Char);
...
if key =' ' then  begin //проверка при вводе пробела
                  if Edit3.Text='' then key:=#0//если текст в Edit3 пуст то ввод запрещен
                  else begin  //иначе если текст в Edit3 не пуст...
                  s:=edit3.text;//присваиваим переменной S текст из EDIT3
                  s1:=copy(s,1,Edit3.seLStart);//присваиваим переменной s1 часть строки s от начала до положения курсора
                  s2:=copy(s,Edit3.seLStart+1,length(s));//присваиваим переменной s1 часть строки s от положения курсора до конца
                  if Edit3.seLStart=0 then key:=#0; //нельзя писать пробел в начале строки
                  if (s<>'') and (Edit3.seLStart<>0 ) and (Edit3.seLStart<>length(s)) then begin //нельзя писать 2пробела подряд
                                                          if (s1[length(s1)]=' ') or (s2[1]=' ') then key:=#0;
                                                          end;
                  if (Edit3.seLStart=length(s)) and (s[length(s)]=' ') then key:=#0;//нельзя писать больше 1го пробела в конце строки
                  end;
                  end;

// цифры, запятая разделитель, минус и клавиша стирания разрешены, больше ничего не разрешено
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', '-', #8]) then
    Key := #0;
end;

Edit1.text:=trim(Edit1.text);
If Edit1.text='' then 
Edit1.text:='0,00';

// цифры, точка разделитель, минус и клавиша стирания разрешены, больше ничего не разрешено
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', '.', '-', #8]) then
    Key := #0;
  if (Key = #8) and (Edit1.Text = '') then
    Edit1.Text := '0';
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var d:double;
begin
  if (Length(trim(Edit1.Text))>0) then begin
    Edit1.Text:=StringReplace(Edit1.Text,'.',DecimalSeparator,[]);
    Edit1.Text:=StringReplace(Edit1.Text,',',DecimalSeparator,[]);
    if TryStrToFloat(Edit1.Text,d) then exit;
  end;
  Edit1.Text:='0'+DecimalSeparator+'00';
end;

var 
 str : string
begin
 str := Edit1.text;
 if str[Length(str)] = ' ' then
  delete(str, Length(str)-1, 1);
 
Edit1.text := str;
end;

 if str[Length(str)] = ' ' then

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=' ' then
    begin
      keybd_event(VK_BACK,0,0,0);
    end;
end;

if (edit3.text='')=false then
begin
...
end;