Dann ändere mal:
Code:
procedure TTN2004Service.Einstellungen1Click(Sender: TObject);
begin
if FrmMain = nil then
begin
FrmMain := TFrmMain.Create(nil);
[s][color=#ff0000]FrmMain.Show;[/color][/s]
end;
[color=#ff0000]FrmMain.Show;[/color]
end;
...
...
P.S.: Und Du bist Dir sicher, daß Du einen
interaktiven Service schreiben möchtest
Das würde Dir in mancher Firma inzwischen einen "blauen Brief" einbringen.