StringGrid Zeilen löschen

[lucy]

Es soll durch einen doppelt Click im StringGrid, die ausgewählte Zeile gelöscht werden.
Außer wenn die erste Zeile doppelt geklickt wird!

Wie schütze ich die erste Zeile im Grid?

Delphi-Quellcode:

procedure TForm1.StringGrid1DblClick(Sender: TObject);
   var
  i,j :integer;
begin
 if MessageDlg('Daten wirklich löschen?', mtWarning, [mbyes, mbno], 0) = mrYes then
  StringGrid1.RowCount := StringGrid1.RowCount - 1;

  StringGrid1.FixedRows:= 1;
  StringGrid1.FixedColor := clred;

 StringGrid1.Cells [1,0]  := ' ';
 StringGrid1.Cells [2,0]  := 'Unixzeit';
 StringGrid1.Cells [3,0]  := 'Address';
 StringGrid1.Cells [4,0]  := 'Status';
 StringGrid1.Cells [5,0]  := 'Exit';
 StringGrid1.Cells [6,0]  := 'Short';
end