SelectNext为什么不能写在过程里？(20分)

这段代码为什么有错呢？
提示
procedure Tsource_form.test_input_string(input_char: char;
input_string: string
input_form:Tform);
begin
if input_char=#13 then
begin
if input_string='' then
showmessage('Wrong!')
else
input_form.SelectNext(activecontrol,true,true);
end;
end;