Code:
procedure TForm1.FormActivate(Sender: TObject);
var
ini: TIniFile;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'Einstellungen.ini');
try
prozent:=ini.Readstring('Umsatzbeteiligung','Prozent','15');
farbe:=ini.Readinteger('Farben','Farbe',8388608);
[color=#ff0000]name[/color]:=ini.Readstring('Benutzer','Name','Mustermann');
vorname:=ini.Readstring('Benutzer','Vorname','Max');
finally
ini.free;
end;
form1.caption:='Kundenverwaltung v 1.9 registriert auf : '+vorname+' '+[color=#ff0000]name[/color]+' copyr. by Schniede';
panel19.color:=farbe;
edit3.text:=prozent;
if [color=#ff0000]name[/color] = 'Mustermann' then
MessageDlg('Bitte geben Sie unter EINSTELLUNGEN Ihre Daten an !', mtInformation, [mbok], 0);
end;
Das Problem ist
Name. Du hast wahrscheinlich irgendwo auch eine Variable dieses Namens, allerdings hat jede Komponente auch eine Eigenschaft die so heißt. In diesem Fall überschreibst Du die Eigenschaft
Name des Forms. Benenne die Variable überall mal in z.B.
UserName um, dann sollte es keine Probleme mehr geben.
...
...