Use WaveOutGetNumDevs procedure. It returns number of waveform-audio output devices present in the system.
Don't forget include MMSystem to uses chapter.

uses MMSystem;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  if WaveOutGetNumDevs<>0 then
    Label1.Caption:='Sound card is present'
  else
    Label1.Caption:='Sound card is not present';
end;

For more

Win32 programmer's reference

Download source