[lmikle]

Создаешь новый проект.
На форму кидаешь Edit и Button.
Щелкаешь на кнопке и в обработчике пишешь код:

Код:

procedure TForm1.Button1Click(Sender : Tobject);

  function IsNumberConain(Nmb : Integer; Dig : Char) : Boolean;
  begin
    Result := Pos(Dig,IntToStr(sqr(Nmb))) > 0;
  end;

begin
   If  IsNumberConain(StrToInt(Edit1.Text),'3')
      Then ShowMessage('Входит')
      Else  ShowMessage('Невходит');
end;

Естественно, тут проверок на корректность данных нет.