Er zeigt mein Fenster nicht an!

[Neotracer64]

Hallo, Ich bins schon wieder.

Erstmal der Code

Delphi-Quellcode:

interface

var
  scf: Textfile;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin

AssignFile(scf, 'C:\desk.txt');
ReWrite(scf);
Writeln(scf,'[Shell]');
Writeln(scf,'Command=2');
Writeln(scf,'IconFile=explorer.exe,3');
Writeln(scf,'[Taskbar]');
Writeln(scf,'Command=ToggleDesktop');
CloseFile(scf);
RenameFile('c:\desk.txt', 'c:\desk.scf');
ShellExecute(Application.Handle, 'Open','C:\desk.scf', nil, nil, SW_SHOWNORMAL);
ShowWindow(Self.Handle, SW_SHOW);

end;
...

Und ratet mal was er macht. Nachdem er durch die .scf den Desktop anzeigt, zeigt der meine Form nicht an. Obwohl das genau nach dem ausführen der scf passiert. Ne Idee wie das sein kann ?

Dankbar für jede Hilfe