안녕하세요? 이중락 입니다.
간략한 소스는 다음과 같습니다.

procedure TForm1.RecMPEG(filenames: String);
var
   abs, vbs: PChar;

begin
     abs := PChar(filenames+'.abs');
     vbs := PChar(filenames+'.mpg');

     FileName(@abs, @vbs);
end;

이걸 ShowMessage(abs+' , '+vbs); 로 해서 보면 잘 나옵니다.
헌데 마지막부분의 FileName함수 부분에서 받을때 쓰레기값이 나옵니다.
허참나.....어찌 해야 되나요....
별거 아닌걸 가지고 골머리를 썩고 있는것 같아서 무지 스트레스 쌓이네요.

                                               << 나이스 큐~~ >>

        P.S : 아참...FileName함수의 프로토 타입은...
              procedure FileName(audio: PChar; video: PChar);