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.