Form Automatsch öffnen, wenn ein User es möchte!

[jbg]

Ändere mal den Code in GeburtsdatumClick so um:

Code:

procedure TKundendaten.GeburtsdatumClick(Sender: TObject); 
var 
  i, r: Integer; 
  s: string; 
begin 
  ExtraForm.Show;
  Exit;

  r := DM.ADOSHaupt.RecNo; 
  for i := 1 to DM.ADOSHaupt.RecordCount do 
  begin 
    DM.ADOSHaupt.RecNo := i; 
    s := Copy(DM.ADOSHaupt.FieldByName('Geburtsdatum').AsString, 1, 6); 
    if (StrToDate(s + Copy(DateToStr(Date + 7), 7, 4)) <= Date + 7) and 
       (StrToDate(s + Copy(DateToStr(Date), 7, 4)) >= Date) then 
    begin 
      DM.ADOSHaupt.Filtered := True; 
      ExtraForm.Show; 
    end; 
  end; 
  DM.ADOSHaupt.RecNo := r; 
end;

Die Warnungen die der Compiler ausspuckt kannst du ignorieren.
Starte dein Programm. Wenn jetzt die ExtraForm angezeigt wird, dann stimmt etwas mit der if-Anweisung nicht, oder du hast keine Datensätze mit den passenden Geburtsdaten.