Label.text im MainFrame aus frame setzen

[Uwe Raabe]

Ich habe das mal formatiert:

Delphi-Quellcode:

procedure TfraTourLadenWB.btnWeiterClick(Sender: TObject);
var
  fraTour1 : TfraTour;
begin
  dm.vWiederbesuch := TMSFNCCalendar1.Date;
  dm.vWBString := ( jb_unit.getTag(dm.vWiederbesuch) + DateToStr(TMSFNCCalendar1.Date) );
  dm.EinstSaveIni('TagesTour', 'WB', dm.vWBString);

  if vAufrufVon = 'Tagestour' then
  begin
    fraTour1.btnTourWB.Text := dm.vWBString;
  end;
  ...

  self.Free;
  self := nil;
end;

Zum einen ist die lokale Variable fraTour1 an der Stelle offenbar nicht initialisiert und zum anderen sollte man eher selten Self.Free aufrufen und vermutlich niemals Self := nil setzen.

Mir ist auch noch nicht ganz klar, was du überhaupt erreichen willst.