TComport SIGSEGV bei Esintellungsdialog

[PhilmacFLy]

Edit3:
So nochmal in verstndlich
Ich krieg jetzt hier nen Fehler:

Code: Alles auswählen

function TControl.GetText: TCaption;
var
  len: Integer;
  GetTextMethod: TMethod;
begin
  // Check if GetTextBuf is overridden, otherwise we can call RealGetText directly
  Assert(Assigned(@Self.GetTextBuf), 'TControl.GetText: GetTextBuf Method is Nil');
  GetTextMethod := TMethod(@Self.GetTextBuf); //Hier Exception
  if GetTextMethod.Code = Pointer(@TControl.GetTextBuf) then begin
    Result := RealGetText;
  end
  else begin
    // Bummer, we have to do it the compatible way.
    DebugLn('Note: GetTextBuf is overridden for: ', Classname);
    len := GetTextLen;
    if len = 0 then begin
      Result := '';
    end
    else begin
      SetLength(Result, len+1); // make sure there is room for the extra #0
      FillChar(Result[1], len, #0);
      len := GetTextBuf(@Result[1], len+1); 
      SetLength(Result, len);
    end;
  end;
end;   

Wird ausgelöst durch:

Code: Alles auswählen

  try
  tmplbl := (Findcomponent('lb_'+IntToStr(Nummer)) as TLabel);
  //Zeige den Wert auf den label mit den namen lb_ID an
  tmplbl.Caption := wert;
  if (tmplbl.Tag < selectedlbs) then
  lbarr[tmplbl.Tag].Caption := tmplbl.Caption;
  //Und auf dessen kopie neben der Pagecontroll falls vorhanden
  except
  //Oh label nicht gefunden
  end;