function TFrom1.FindHint(const S: string): string;
var
i, j, k: integer;
word: string;
begin
for i := 1 to Length(S) do
for j := i to Min(i + 4, Length(S)) do
begin
word := Copy(S, i, j - i + 1);
for k := 0 to StringGrid1.RowCount - 1 do
if Pos(word, StringGrid1.Cols[0][k]) > 0 then
begin
Result := StringGrid1.Cols[1][k];
exit;
end;
end;
end;