1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure GridDeleteRow(const Grid : TStringGrid; RowNumber : Integer);
var
i : Integer;
begin
  for i := RowNumber to Grid.RowCount - 2 do
    Grid.Rows[i].Assign(Grid.Rows[i+ 1]);
  Grid.Rows[Grid.RowCount-1].Clear;
  Grid.RowCount := Grid.RowCount - 1;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure TFAdress.EdsearchChange(Sender: TObject);
var posi, i: integer;
    sname, sname2, inh: string;
begin
sname := Edsearch.text;
sname2 := sname;
// eigener Suchalgorithmus
for i := 0 to n do
    begin
    inh := inhalt[0,i];
    if sname = inh
       then SG1.Selection := TGridRect(Rect(0,i,1,i))
       else begin
            posi := pos(sname,inh);
            if posi <> 0
               then begin
                    delete(sname,0,posi);
                    if sname = sname2
                       then SG1.Selection := TGridRect(Rect(0,i,1,i))
                    end
               else GridDeleteRow(SG1,i); // <-- hier liegt das Problem
            end;
    end;
end;                    

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:

procedure TFAdress.EdsearchChange(Sender: TObject);  
var posi, i: integer;  
    sname, sname2, inh: string;  
begin  
sname := Edsearch.text;  //Suchbegriff merken  
sname2 := sname;         //Nochmal merken
// eigener Suchalgorithmus  
for i := 0 to n do       //n = global definiert, richtig initialisiert ???
    begin  
    inh := inhalt[0,i];  //Inhalt aus Array ??? ermitteln
    if sname = inh then  //Suchbegriff = inh
       //dann im Grid selectieren, innerhalb einer Schleife ???
       //Selection wird doch beim nächsten Durchlauf wieder aufgehoben  
       SG1.Selection := TGridRect(Rect(0,i,1,i))
       else //Suchbegriff <> inh      
         begin         
         //Suchbegriff in inh enthalten ?
         posi := pos(sname,inh);//wo beginnt der Suchstring  
         if posi <> 0 then 
           begin //Suchbegriff enthalten 
           //Am Anfang des Suchbegriffs eine Anzahl Zeichen entsprechend der 
           //Position des Suchstrings in inh löschen ?????????????
           delete(sname,0,posi); 
           //Bedingung trifft nie zu, denn sname wird immer verändert 
           if sname = sname2 then //im Grid selectieren
             SG1.Selection := TGridRect(Rect(0,i,1,i))  
           end  
           else //Suchbegriff nicht in inh enthalten ?
             //Zeile löschen
             GridDeleteRow(SG1,i); // <-- hier liegt NICHT das Problem  
         end;  
    end;  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TFAdress.EdsearchChange(Sender: TObject);  
var i: integer;  
    sname, inh: string;  
begin  
sname := Edsearch.text; 
for i := 0 to n do       
  begin  
  inh := inhalt[0,i];
  if pos(sname,inh) = 0 then  //Suchbegriff <> inh oder nicht in inh enthalten
    GridDeleteRow(SG1,i);        
  end;
  SG1.Selection := TGridRect(Rect(0,n,1,n));//was soll eigentlich selectiert werden  
end;                    

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:

i := 0;
        x := SG1.Rowcount - 1;
        noname := 0;
        // eigener Suchalgorithmus
        while i <= x do
              begin
              sname := lowercase(Edsearch.text);
              lang := length(sname);
              inh := lowercase(SG1.cells[0,i]);
              if compareText(inh,sname) = 0
                 then SG1.Selection := TGridRect(Rect(0,i,1,i))
                 else begin
                      posi := pos(sname,inh);
                      if posi > 0
                         then begin
                              if compareText(inh[lang],sname) = 0
                                 then SG1.Selection := TGridRect(Rect(0,i,1,i));
                              inc(i);
                              end
                         else begin
                              GridDeleteRow(SG1,i);
                              SG1.Selection := TGridRect(Rect(0,0,1,0));
                              dec(x);
                              end;
                      end;
                 end;                    

1:

if compareText(inh[lang],sname) = 0 then