Tager kun med nogle tegn...

procedure TForm1.Edit1Change(Sender: TObject);
var
  KommaSat : Boolean;
  i : Integer;
  Set1: set of char;
  InPut : char;

begin
Set1 := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ','];
KommaSat := False;
  for i := 1 to length(Edit1.Text) do
  begin
    InPut := Edit1.Text[i];
  if (InPut = ',') and KommaSat then
      ShowMessage('Nu er der to kommaer');
    if (InPut = ',') and not KommaSat then
      KommaSat := True;
    if not (InPut in set1) then
    ShowMessage('Nu er der ikke tal i feltet');
  end;

end;

synes ikke lige det virker, har jeg gjort noget forkert:

procedure TForm1.Edit7Change(Sender: TObject);
var
  KommaSat : Boolean;
  i : Integer;
  Set1: set of char;
  InPut : char;

begin
Set1 := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ','];
KommaSat := False;
  for i := 1 to length(Edit1.Text) do
  begin
    InPut := Edit1.Text[i];
  if (InPut = ',') and KommaSat then
      ShowMessage('Nu er der to kommaer');
    if (InPut = ',') and not KommaSat then
      KommaSat := True;
    if not (InPut in set1) then
    ShowMessage('Nu er der ikke tal i feltet');
  end;
end;

begin
Set1 := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ','];
KommaSat := False;
  for i := 1 to length(Edit1.Text) do <---HER SKA STÅ EDIT7
  begin
    InPut := Edit1.Text[i];

for i := 1 to length(Edit1.Text) do
  begin
    InPut := Edit1.Text[i]; <--HER SKAL OGSÅ STÅ EDIT7
  if (InPut = ',') and KommaSat then
      ShowMessage('Nu er der to kommaer'

ok, kan man få den til at fjerne det "forbudte tegn" ?

Jep, husk at rette til Edit7

procedure TForm1.Edit1Change(Sender: TObject);
var
  KommaSat : Boolean;
  i : Integer;
  Set1: set of char;
  InPut : char;
  OutPut : String;

begin
Set1 := ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0', ','];
KommaSat := False;
  for i := 1 to length(Edit1.Text) do
  begin
    InPut := Edit1.Text[i];
    if (InPut = ',') and KommaSat then
    begin
      Edit1.Text := OutPut;
      Exit;
    end;
    if (InPut = ',') and not KommaSat then
      KommaSat := True;
    if not (InPut in set1) then
        begin
      Edit1.Text := OutPut;
      Exit;
    end;
    Output := OutPut + Input;
  end;
end;

Jeg satte lige to "Edit7.SelStart := i;" så den ikke gik tilbage når der kom et grimt tegn, så nu er den helt perfekt...

mange tak...

selv tak, og ja den blev faktisk skide god ;)