procedure TForm1.SetStatusConnected(AStatus: boolean; AText: string);
begin
  //Form1.AdvOfficeStatusBar1.Panels[0].Text:= AText;
  lblStatus.Caption:= AText;
  if AText = '' then
    if AStatus then lblStatus.Caption:= stText01
               else lblStatus.Caption:= stText02;
  if AStatus then begin

                   //Form1.AdvOfficeStatusBar1.Panels[0].Progress.Level3Color:= clLime;
                    //Form1.AdvOfficeStatusBar1.Panels[0].Progress.Level3Color:= $006AFF6A;
                    if IsP2KConnected
                    then begin Shape1.Brush.Color:=  $006AFF6A; lblStatus.Caption:= lblStatus.Caption + ' P2K'; end
                    else if IsATConnected
                    then begin Shape1.Brush.Color:=  $00FEC981; lblStatus.Caption:= lblStatus.Caption + ' AT'; end
                    else if IsOBEXConnected
                    then begin Shape1.Brush.Color:=  $00f9ea93; lblStatus.Caption:= lblStatus.Caption + ' OBEX'; end
                    else if IsFlashConnected
                    then begin Shape1.Brush.Color:=  $00ea44a4; lblStatus.Caption:= lblStatus.Caption + ' Flash'; end;
                    //Form1.AdvOfficeStatusBar1.Panels[0].Progress.Level3ColorTo:= $00E1FFE1;
                  end
             else begin
                    //Form1.AdvOfficeStatusBar1.Panels[0].Progress.Level3Color:= clRed;
                    //Form1.AdvOfficeStatusBar1.Panels[0].Progress.Level3Color:= $005959FF;
                    Shape1.Brush.Color:= $005959FF;
                    //Form1.AdvOfficeStatusBar1.Panels[0].Progress.Level3ColorTo:= $00CACAFF;
                  end;
  Application.ProcessMessages;                
end;