Pascal/Delphi Problema com reprodução de som no programa Lazarus

[winzero]

Então, estava fazendo um código de despertador e resolvi adicionar um som para tocar nesse programa. Usei o MMSystem que me permite tocar sons .wav   

O problema é que mesmo deixando o som na pasta que marquei, ele não abre (já converti para wav) e outro som de uma sirene deu certo, então não entendi o que fazer.

 

A seguir o código em si.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
  MMSystem;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;


implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Timer2Timer(Sender: TObject);
begin
     if edit1.text <> '' then
       begin
if label1.caption > Edit1.Text then
  begin
    PlaySound('aazz.wav',1,SND_ASYNC);
    end;
end;
       end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:=timetostr(now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  label4.Caption:='Ativado';
  timer2.enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    label4.Caption:='Inativo';
  timer2.enabled:=false;
end;
end.

 

Perdão se fiz algo errado, desde já agradeço.

[Flávio Pedroza]

Acho que esse condicional está errado, já que são strings.

label1.caption > Edit1.Text

Label1 tem a hora atual, correto? E Edit1, você entra com o quê? Uma hora também?

Se for comparar os valores, tem que converte de string para algum formato que seja possível comparar, como um inteiro.

[devair1010]

@winzero      testei aqui e está funcionando bem ,   mas verifique se o som wav está na mesma pasta onde você salvou o projeto e a Unit e inclua também no uses  ComCtrls ,   mas  quando coloquei o código ele não quis funcionar mesmo não , então fechei o delphi e abri novamente e então funcionou .

[winzero]

@devair1010 Obrigado pela ajuda!

adicionado 2 minutos depois

@Flávio Pedroza Edit1 entra com o horário do despertador. O meu problema não foi aí... Não sei se o que fiz está totalmente certo, mas alterei ele para mandar uma mensagem ao invés do som e a mesma foi enviada com sucesso... O problema era unicamente no som e não nas comparações em sí. Obrigado pela ajuda!