[dr. F.I.N.]

Тебе в помощь ExtractFileName ChangeFileExt

Код:

var
  A, B:String;
...
begin
...
  A := ExtractFileName(OpenDialog1.FileName);
  B := ChangeFileExt(A, '.dbf');
  WinExec (Format('C:\Directory\Запускаемая_программа.exe /1 /a- /b- %s %s.dbf', [A, B]), SW_SHOW);
...