1:
2:

Edit1.Enabled := false;
Edit1.SetFocus;					

1:
2:
3:

if MessageDlg('CD ['+N+'] schon vorhanden! Einträge Überschreiben?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     _overwrite:=TRUE					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure check_double;
var F: TextFile; i:integer; s,N0,N,SN:string;
begin _overwrite:=FALSE; // _overwrite ist global, für SpeicherProcedure
assignFile(F,'C:\CDs.dat');
try {$I-} reset(F); {$I+}
    _ioFehler:=ioResult;
    if _ioFehler=0 then
       begin
       while not eof(F) do
             begin N:='';    //      CD-SN      CD-Name  Einträge im RootVerz.
             readln(F,s);               // CD-Eintrag(1.Zeile)= sn12345678 "Name..." Einträge: 123
             if (copy(s,1,2)='sn') then // CD-SerienNr. /Name /Einträge in akt. Zeile
                begin
                SN:=copy(s,3,8); // SerienNr. auslesen
                for i:=1 to length(s) do // Name auslesen
                    begin
                    if (copy(s,12+i,1)<>'"') then // Name zu Ende, wenn 2.<">
                       N:=N+copy(s,12+i,1)
                       else break; // Name zu Ende
                    end;
                if (N=_sname) then // akt.Name(CDs.dat) = Name(eingelgte CD)? 
                   begin
                   if (SN=_snummer) then // SerienNr.(CDs.dat) = SerienNr.(eingelgte CD)? 
{Hier kommt Fehler}   if MessageDlg('CD ['+N+'] schon vorhanden! Einträge Überschreiben?',
                      mtConfirmation, [mbYes, mbNo], 0) = mrYes then
                      _overwrite:=TRUE;
                   exit;
                   end;
                end;
             end;
       end;
    finally closeFile(F);
  end;        
end;					

1:

MyRadiogroup.OnChange:=Nil;					

1:

MyRadiogroup.OnChange:=.... // wieder hineinkopieren