Функция

[timyr1997]

Если в edit1 число больше 0 то тогда должен играть звук! А если в edit1 числ 0 то не чего не произойдет

[artemavd]

var
 i: integer;
begin
 i:=StrToInt(Form1.Edit1.Text);
 if i > 0 then
 begin
  Beep;
 end;
end;

[Stilet]

Не согласен. А если автор введет в Эдит не число?
Лучше так:

var
 i,e: integer;
begin
 val(Form1.Edit1.Text,i,e);
 if (e=0)and(i > 0) then begin
  // Играем песенку
 end;
end;

[timyr1997]

Спасибо сейчас буду пробавать