Преобразование Pchar в string (модуль MMsystem)

[dani92]

procedure TForm3.FormActivate(Sender: TObject);
Var A :  PChar;
     S : String;
 Begin
S:=StrPas(A);
S:=form2.Edit1.Text;


     Label1.Caption := Form2.Edit1.Text; // òåêñò ñîîáùåíèÿ
     PlaySound(S,0,SND_ASYNC);  // çâóê

в общем суть в том что, пишу программу на подобии будильника, для проигрывания использую модуль MMSYSTEM. нужно чтобы для каждого звонка была своя мелодия и чтобы путь к файлу хранился например в ини файлах. Для этого нужно преобразовать Pchar в string.
путь к файлу пользователь выбирает в диалоге и его путь хранится в эдите.

[Пепел Феникса]

 PlaySound(PChar(S),0,SND_ASYNC);

надо так

а эти две строки убрать

S:=StrPas(A);
A :  PChar

[dani92]

Сообщение от Пепел Феникса

 PlaySound(PChar(S),0,SND_ASYNC);

надо так

а эти две строки убрать

S:=StrPas(A);
A :  PChar

большое вам спасибо, вы мне очень сильно помогли!!