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:
35:
36:
37:
38:
39:
40:
41:

function TForm1.GetStartCell(vehiclenum: integer; startdate: TDate): TPoint;
var ActCol, ActRow: integer;
begin
  result := Point(-1, -1);
  for ActCol := 1 to StringGrid1.ColCount - 1 do
  begin
    if StringGrid1.Rows[0][ActCol] = DateToStr(startdate)
    then
    begin
      result.X := ActCol;
      for ActRow := 1 to StringGrid1.RowCount - 1 do
      begin
        if StringGrid1.Cols[0][ActRow] = 'LKW ' + IntToStr(vehiclenum)
        then
        begin
          result.Y := ActRow;
          break;
        end;
      end;
      break;
    end;
  end; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var select: TGridRect;
    SelStart: TPoint;
begin
  SelStart := GetStartCell(StrToIntDef(EVehicleNum.Text, -1), StrToDate(EStartDate.Text));
  if (SelStart.X > -1) and (SelStart.Y > -1)
  then
  begin
    // Spalte Right bis Left markieren
    select.Left := SelStart.X + StrToIntDef(EDays.Text, 0) - 1;
    select.Right := SelStart.X;
    // Zeile Top bis Bottom markieren
    select.Top := SelStart.Y;
    select.Bottom := SelStart.Y;
    StringGrid1.Selection := select;
  end;
end;