procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
    StringGrid1.Selection := TGridRect(Rect(StringGrid1.FixedCols, //Left: Fixedcols nicht markiern
                                          StringGrid1.Row, //Top: aktuelle Zeile
                                          StringGrid1.ColCount-1, //Right: bis zur letzten Zelle
                                          StringGrid1.Row));


 for i :=StringGrid1.Row to StringGrid1.RowCount-2 do StringGrid1.Rows[i].Assign(StringGrid1.Rows[i+2]);
  StringGrid1.RowCount := StringGrid1.RowCount - 1;
 StringGrid1.ColWidths[0] := 25;
 StringGrid1.ColWidths[1] := 70;
 StringGrid1.ColWidths[2] := 70;
 StringGrid1.ColWidths[3] := 125;
 StringGrid1.ColWidths[4] := 5000;
 StringGrid1.Cells [1,0] := 'Datum';
 StringGrid1.Cells [2,0] := 'Zeit';
 StringGrid1.Cells [3,0] := 'Identification';
 StringGrid1.Cells [4,0] := 'Global Debugger';
end;