Как запретить ввод цифрого разделителя (decimalseparator) первым символом в поле edit (Delphi)?

if S[1] = '.' then S := '0' + S;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var s: string;
begin
  s := Edit1.Text;
  if s = '.' then
    begin
      s := '0' + s;
      Edit1.Text := s;
    end;
end;

if s[1] = '.' then

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
    #8, '0'..'9':;
    '.',',': begin
               if Key <> DecimalSeparator then 
                 Key := DecimalSeparator;
               if Pos(DecimalSeparator, Edit1.Text) <> 0 then //запрет второго разделителя
                 Key := Chr(0);
              end
else
 Key := Chr(0);
end;  
end;

try
  Num := StrToFloat(S {, DecimalSeparator});
except on E: Exception do
  ...
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = DecimalSeparator) and (Edit1.Text = '') then
  begin
    Key := Chr(0);
  end;
end;
end.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
  #8, '0'..'9':; //только и цифры и клавиша backspace
  '.',',':           //разделитель
    begin
      if Key <> DecimalSeparator then 
        Key := DecimalSeparator;
      if Pos(DecimalSeparator, Edit1.Text) <> 0 then //запрет на два разделителя
        Key := Chr(0);
    end
 else
  Key := Chr(0); //остальные символы игнорируются
 end;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text<>'') and (Edit1.Text[1]=DecimalSeparator) then //если первый символ разделитель
  begin
   Edit1.Text := '0'+DecimalSeparator; //ставим ноль в начало и за ним разделитель
   Edit1.SelStart := 3;                         //курсор ставим после разделителя
  end;
end;

//процедура отслеживает и обрабатывает ввод символов в Edit1
//в том числе и методом копи паста
//ввести/скопировать в поле Edit1 можно только числа и числовой разделитель
//остальные символы удаляются/игнорируются
//при вводе разделителя первым символом, в первую позицию вставляется ноль
//а за нолем идет разделитель
//вводимые символы ограничены длинною строки (значение MaxLength)
procedure TForm1.Edit1Change(Sender: TObject);
var i,d:byte;s:string;
begin
  Edit1.MaxLength := 7; //максимальная длина строки
  d:=0; //количество введенных разделителей
  i:=1; //счетчик символов строки
  s:=Edit1.Text;  //строка
  while i <= length(s) do   //анализируем строку по одному символу
    begin
      if s[i] in [',','.'] then  //если символ является разделителем
        begin
          d := d+1; //инкремент разделителя
          if s[i]<>DecimalSeparator then //если разделитель не такой как в системе
            s[i] := DecimalSeparator;
          if d > 1 then     //если разделителей больше одного
            begin
              Delete(s,i,1);  //удалить лишний разделитель
              d :=d-1;        //декремент разделителя
              i := i-1;
            end;
        end
      else
        if not (s[i] in ['0'..'9',#8]) then //только число и клавиша backspace
          begin
            Delete(s, i, 1); //если не число, то удаляем из строки
            i := i-1;
          end;
      i := i + 1;  //инкремент счетчика символов строки
    end;
  if (s<>'') and (s[1] = DecimalSeparator) then //если разделитель в 1-й позиции
    insert('0',s,1); //вставляем ноль в 1-ю позицию строки
  while length(s) > Edit1.MaxLength do //если длина строки больше заданной
    begin
      Delete(s,length(s),1); //удаляем лишние символы с конца строки
    end;
  Edit1.Text := s;    //отображаем полученную строку
  Edit1.SelStart:=length(Edit1.Text); //курсор ставим в последнюю позицию
  Edit1.SetFocus;   //устанавливаем фокус на Edit 
end;