Parameter übergeben

[DomPerle]

Vielen Dank für Eure Ratschläge. Leider erhielt ich aber nicht den gewünschten Erfolg.
Ich habe nun eine andere Lösung, nicht so elegant, aber die klappt.
mein Delphi-Programm:

procedure TForm3.Button3Click(Sender: TObject);
const
FN = 'C:\HDH\Prog.dat';
var
prog : String;
TextDatei: TextFile;
begin

Prog:= Form1.Programm;
ShowMessage(prog);

AssignFile(TextDatei, FN);
Rewrite(TextDatei);
Write(TextDatei, Prog);
CloseFile(TextDatei);

ShellExecute(0, nil,'cmd.exe', '/k C:\HDH\Transfer_TNC155.bat', nil, SW_SHOW);

end;

und hier mein Batch-File:

Echo off
CD\

if exist c:\HDH\99.txt del /Q c:\HDH\99.txt
SET file=C:\hdh\prog.dat

IF EXIST "%file%" GOTO Erstellen
IF NOT EXIST "%file%" GOTO Error

:Erstellen
FOR /f "delims=" %%f IN (%file%) DO (
Echo %%f
SET str=%%f
copy /Y C:\HDH\TNC155\%%f C:\HDH\99.txt
)
GOTO End

:Error
ECHO Datei existiert nicht
GOTO End

:End
exit