Hab's so verstanden, dass folgende zeilen die Lösung sein könnte (nur mal so hingetippt, nicht überprüft, nicht elegant und bestimmt optimierungsfähig):
Delphi-Quellcode:
procedure TForm1.XXXX;
var Txt2Find : String;
Index : Integer;
function GetGrid2Index(Grid:TStringGrid;Txt2Find:String):Integer;
var i : Integer;
begin
Result:=-1;
with Grid do
for i:=FixedRows to RowCount-1 do
if Cells[1,i]=Txt2Find) then begin
Result:=i;
Break;
end;
end;
begin
Txt2Find:=StringGrid1.Cells[1,StringGrid1.Row];
Index :=GetGrid2Index(StringGrid2,Txt2Find);
if Index>-1 then StringGrid2.Cells[2,Index]:=Now
end;