Löschen einer Zeile mit anschließendem Aufrücken

[MaToBe]

Delphi-Quellcode:

//Bilder laden
procedure TForm1.btnBildLadenClick(Sender: TObject);
begin
  if openPictureD.Execute then
  begin
    imgBild.Picture.LoadFromFile(openPictureD.FileName);
    sgDaten.Cells[0,clbBilder.Count] := inttostr(clbBilder.Count);
    sgDaten.Cells[1,clbBilder.Count] := ExtractFileName(openPictureD.FileName);
    sgDaten.Cells[2,clbBilder.Count] := ExtractFilePath(openPictureD.FileName) + ExtractFileName(openPictureD.FileName);
    clbBilder.Items.Add(ExtractFileName(openPictureD.FileName));
    lbBildName.Caption :=  ExtractFileName(openPictureD.FileName);
    lbBildpfad.Caption :=  ExtractFilePath(openPictureD.FileName) + ExtractFileName(openPictureD.FileName);
  end;
end;

//Bilder löschen
procedure TForm1.btnBildloeschenClick(Sender: TObject);
var ClickIndex : integer;
begin
    ClickIndex := clbBilder.ItemIndex;
    imgBild.Free;
    lbBildName.Caption := '';
    lbBildPfad.Caption := '';

    sgDaten.Rows[ClickIndex].Clear;                                //Rot markieren ging nicht, Hier wird gelöscht ?!?
    for I := ClickIndex to sgDaten.RowCount-1 do
    begin
        sgDaten.Rows[i] := sgDaten.Rows[i+1];
    end;[/color]

    clbBilder.Items.Delete(ClickIndex);
end;

//Bilder anzeigen
procedure TForm1.clbBilderClick(Sender: TObject);
var ClickIndex : integer;
    BildPfad : string;
    BildName : string;
begin
    ClickIndex := clbBilder.ItemIndex;
    BildPfad :=   sgDaten.Cells[2,ClickIndex];
    BildName :=   sgDaten.Cells[1,ClickIndex];

    imgBild.Picture.LoadFromFile(BildPfad);
    lbBildName.Caption :=  BildName;
    lbBildpfad.Caption := BildPfad;
end;

Beim Rot markierten wird die betreffende Zeile gelöscht und der Rest eine Zeile nach oben verschoben oder?

€: Rot markieren ging nicht, kommentar beachten.