Salam.. saya masih buat program antrian. program yang saya buat:

procedure TForm_Utama.bbtn_panggil1Click(Sender: TObject);
begin
   if (tb_noUrut.FieldByName('noUrut').AsString='')
   or (tb_noUrut.FieldByName('noUrut').asstring='0') then
   begin
      tb_noUrut.refresh;
   end
   else
   begin
     tb_noUrut.First;
     lb_loket1.Caption:=tb_noUrut['noUrut'];
     tb_noUrutCad1.First;
       while tb_noUrutCad1.RecordCount>0 do
       tb_noUrutCad1.delete;
       tb_noUrutCad1.Append;
       tb_noUrutCad1.FieldByName('Cad1').asstring:=tb_noUrut['noUrut'];
       tb_noUrutCad1.Post;
       form_tampilan.Lb_antre1.Caption:=tb_noUrut['noUrut'];
       PlaySound(pchar('notify'), 0, SND_FILENAME);
       PlaySound(pchar('NomorAntrian'), 0, SND_FILENAME);
       PlayAngka(tb_noUrut['noUrut']);      //ada prosedure play angka-nya (dari Bro Sniper)
       PlaySound(pchar('KeLoket'), 0, SND_FILENAME);
       PlaySound(pchar('satu'), 0, SND_FILENAME);
       tb_noUrut.Delete;
     end;
end;

ketika program di RUN, kenapa selalu suara yang lebih dulu muncul, baru kemudian Lb_antre1.Caption yang berubah???? saya coba buat program 'latihan':

procedure TForm1.btn_playClick(Sender: TObject);
begin
  if (label1.Caption='x')
  or (label1.Caption='2') then
  begin
    label1.Caption:='1';
    begin
    PlaySound(pchar('satu'), 0, SND_FILENAME);
    end
  end
  else
  if (label1.Caption='1') then
  begin
    label1.Caption:='2';
    PlaySound(pchar('dua'), 0, SND_FILENAME);
  end;
end;

tetep aja hasilnya sama (suara lebih dulu keluar, kemudian label1.Caption yang muncul terakhir). Pertanyaannya: Bagaimana caranya agar label1.caption muncul terlebih dahulu, baru kemudian suara nya??? mohon pencerahannya... Wassalam..

segera lakukan "update" begitu set caption label.

  if (label1.Caption='1') then
  begin
    label1.Caption:='2';
    label1.Update; // ---> update control ASAP
    Application.ProcessMessages; // --> optional
    PlaySound(pchar('dua'), 0, SND_FILENAME);
  end;

terimakasih Om DE, Successful !!! program berjalan sesuai harapan, ): dan nambah ilmu juga. btw, "update control ASAP" apaan yaa? //dah nyari di google, & blum nemu

update control .. As Soon As Possible

hehehe... kirain jurus apa gituuu... nambah deh singkatan2 (istilah) buat diskusi di forum TMIIW = Tell Me If It Works CMIIW = Correct Me If I'm Wrong FYI = For Your Information OOT = Out Of Topic ASAP = As Soon As Possible apalagi yaa...? nyari ah istilah2 beginian, biar gaul hehe.. eh nemu blog nya: http://bandungthegreat.blogspot.com/2007/11/istilah-dalam-milis-forum-chatting.html udah ah, jadi OOT nih. Makasih ya Om DE & Om Pebbie.