1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var SS,SL,i,i1,f:integer;
    Buf:string;
begin
f := 0;
 with Sender as TEdit do begin
  SS:=SelStart;
  SL:=SelLength;
  SetLength(Buf,0);
  for i:=1 to length(Text) do if Text[i] in (['0'..'9',',']) then
    begin
    for i1:=1 to length(Text) do if Text[i] = ',' then f := f + 1;
    if (f >= 3) then break;
    Buf:=Buf+Text[i];
    end;
  Text:=Buf;
  SelStart:=SS;
  SelLength:=SL;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

{******* Nur Zahlen und ein Komma im Editfeld *******}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key = ',' then
  if pos(',', edit1.Text) <> 0 then  // falls noch kein Komma vorhanden ist pos = 0
   begin
      key := #0;
   end;


 if not (key in ['0'..'9', ',' , #8]) then  // nur zahlen, komma
    begin
      key := #0;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

//Caution: This routine does NOT prevent multiple inputs of the decimal point!!
begin  
if not (Key in [#8,'0'..'9']) then
  if Key in [',','.',';',':'] then   //accidental use of Shift key?
    Key := DecimalSeparator   //Comma or dot as decimal point...
  else                        //(depending on Windows language settings)
    if Key =#13 then          //"CR" equal to the "TAB" Key
      begin
        Perform(WM_NEXTDLGCTL, 0, 0);  //set focus to next field
        Key := #0;                     //avoid beep tone
      end
    else 
    Key := #0;   //There was no valid key
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var SS,SL,i,i1:integer;
    Buf:string;
    ifkomma : Boolean;
begin
 with Sender as TEdit do begin
  SS:=SelStart;
  SL:=SelLength;
  SetLength(Buf,0);
  for i:=1 to length(Text) do
  begin
  showmessage(inttostr(pos(',', Text)));
  if (pos(',', Text) > 0) then ifkomma := true else ifkomma := false;
  if ifkomma = false then begin if Text[i] in ((['0'..'9',','])) then Buf:=Buf+Text[i]; end;
  if ifkomma = true then begin if Text[i] in ((['0'..'9'])) then Buf:=Buf+Text[i]; end;
  end;
  Text:=Buf;
  SelStart:=SS;
  SelLength:=SL;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

sFloat : String = '0';
//...
procedure TForm1.Edit1Change(Sender: TObject);
var E: Extended;
begin
  //Enthält der String keinen gültigen Gleitkommawert, gibt TextToFloat False zurück
  if TextToFloat(PChar(Edit1.Text), E, fvExtended) then
    //TextToFloat wertet führende und schließende Leerzeichen nicht als Fehler
    sFloat := Trim(Edit1.Text)//akzeptieren und sichern
    else
      begin
      Edit1.Text := sFloat;//letzte gültige Eingabe wiederherstellen
      //damit der Cursor wieder am Ende steht
      Edit1.SelStart := Length(Edit1.Text);
      end;
end;					

1:

if (Text = '-') or (TextToFloat(PChar(Text), E, fvExtended)) then					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  sFloatArr : Array [0..9] of String;
//...
procedure TForm1.AllEditChange(Sender: TObject);
var E: Extended;
begin
  with TEdit(Sender) do
    if (Text = '') or (Text = '-') or (TextToFloat(PChar(Text), E, fvExtended)) then
      begin
      sFloatArr[Tag] := Trim(Text);
      if Text <> sFloatArr[Tag] then
        begin
        Text := sFloatArr[Tag];
        SelStart := Length(Text);
        end;
      if Text <> '' then//wenn es denn in OnChange sein muss
        //rechnen
      end
      else
        begin
        Text := sFloatArr[Tag];
        SelStart := Length(Text);
        end;
end;					

1:

if (Text <>'') and (Text <>'-') then					

1:
2:
3:
4:
5:

with TEdit(Sender) do
   if Text='' then Text:='0,00'
   else
    if (Text = '-') or (TextToFloat(PChar(Text), E, fvExtended)) then
      begin....					

1:
2:
3:
4:
5:
6:

with TEdit(Sender) do begin  
   if Text='' then E:=0;
     if (Text = '') or (Text = '-') or (TextToFloat(PChar(Text), E, fvExtended)) then
      begin..
      ...
  end; //zusätzlich für oben					

1:
2:

if (Text <> '') and (Text <>'-') or (E=0)  then //wenn es denn in OnChange sein muss
  //Berechnungen...