为什么不执行i:=i+1;
if Key=#13 then
begin
i:=0;
while i<SGrd.RowCount-2 do
begin
SGrd.Cells[2,i+1]:=Trim(Edit3.Text);
Edit3.Text:='';
Break;
end;
end;
i:=i+1;
Edit3.SetFocus;

[解决办法]
代码格式化后，就更容易看清楚了：

Delphi(Pascal) code

  if Key = #13 then  begin    i := 0;    while i < SGrd.RowCount - 2 do    begin      SGrd.Cells[2, i + 1] := Trim(Edit3.Text);      Edit3.Text := '';      Break;    end;  end;  i := i + 1;  Edit3.SetFocus;