Отлавливать сообщение WM_PASTE

[ololo23]

Как сделать так, чтобы в (edit) можно было ВСТАВЛЯТЬ только
['0'..'9','+','-',',',#8].

[ReportCube]

обрабатывайте событие OnChange

[ololo23]

Сообщение от ReportCube

обрабатывайте событие OnChange

Это-то понятно че писать нужно внем????

[ololo23]

Вот код если кого интересует.
'procedure TForm1.Edit1Change(Sender: TObject);
var
i: integer;
str: string;
begin
str:='';
for i:=1 to Length(Edit1.Text) do
case Edit1.Text[i] of
'0'..'9', '+', '-', ',', #8: str:= str + Edit1.Text[i];
end; { case }
Edit1.Text:= str;
Edit1.SelStart:= Length(Edit1.Text);
end;'

[interacia]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;

Попробуйте так.
событие KeyPress.