procedure TNewThreadradar.Execute; begin Application.Initialize; Application.CreateForm(TFRadarPiu, FRadarPiu); Application.Run; end;