Edit.Text auf GroupBox

[Holymoly]

Hier ist der Prog Code,die Editfelder 4 und 5 liegen auf einer Groupbox,
lege ich die Felder direkt auf das Formular , ist alles OK.
Es kommt aber auch keine Fehlermeldung oder Warnung ???????

Delphi-Quellcode:

procedure TForm3.Timer1Timer(Sender: TObject);
var   c : string;
      i : Integer;

begin
C :='';
InStr:=''  ;
   repeat
         comport1.ReadStr(C,1)  ;
   until c = 'D' ;
     For I := 1 to 32 do
     Begin
      comport1.ReadStr(C,1);
      InStr:= InStr+C;
      Edit9.Text:='  '+Copy(InStr,28,3);

   Form3.StatusBar1.SimpleText :='   InString:  '+InStr ;

   End;

   

ComPort1.ClearBuffer(True,False) ;

   If   CompareStr(Copy(InStr,31,3),' 1')= 0 then

   begin
        edit13.Visible := true;
        Beep    ;
   end
else
    Begin
           edit13.Visible := false;
          Edit7.Text:='  '+Copy(InStr,1,3);        }

         If   CompareStr(Copy(InStr,13,3),'FIX')= 0 then
          Edit10.Text:='  FIX'      {Gantry-End}
          else
          Edit10.Text:='  '+Copy(InStr,13,3);       



          Edit8.Text:='  '+Copy(InStr,7,3);         
          Edit11.Text:='  '+Copy(InStr,4,3);       
          Edit12.Text:='  '+Copy(InStr,25,3);       
          Edit1.Text:='  '+Copy(InStr,16,3);        
          Edit2.Text:='  '+Copy(InStr,19,3);        
          Edit3.Text:='  '+Copy(InStr,22,3);       
          Edit4.Text:='  '+Copy(InStr,10,3);       

         If   CompareStr(Copy(InStr,13,3),'FIX')= 0 then
          Edit5.Text:='AHA'      
          else
          Edit5.Text:='  '+Copy(InStr,13,3);


     End;



   end;

MfG

Wilfried

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]