Assigned=true bei uninitialisierter Variable ?

[Heimlich]

Zitat von Hobbycoder:

Noch besser wäre so:

Delphi-Quellcode:

procedure THeaderFooterForm.FormActivate(Sender: TObject);
var server : TServer;
begin
  try
    server := TServer.Create('127.0.0.1',25222,true);
    try
      server.StopTCPServer;
    finally
      FreeAndNil(server);
    end;
  except
    ShowMessage('Server konnte nicht gestartet werden.');
  end;
end;

Was ist, wenn der Fehler in StopTCPServer passiert, dort aber keine Fehlerbehandlung erfolgt?