用Delphi做101-200之间的素数,该怎么处理

用Delphi做101-200之间的素数
procedure TForm1.Button1Click(Sender: TObject);
var
m,i:integer;
begin
for m:=101 to 200 do
  for i:=2 to trunc(sqrt(m)) do
  if m mod i=0 then
  break;
  if i>=trunc(sqrt(m))+1 then
  begin
  memo1.lines.add(inttostr(m));
  end;
end;

我想让最后算到的数值显示在memo控件里，上面的代码我知道不对，请高手解答，谢谢，本人初学Delphi，勿怪！

[解决办法]
199加一个跳出一个就可以了吧
[解决办法]

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  m, i: integer;  isPrime : Boolean;begin  for m := 101 to 200 do  begin    isPrime := True;    for i := 2 to trunc(sqrt(m)) do    begin      if m mod i = 0 then      begin        isPrime := False;        break;      end;    end;    if isPrime then    begin      Memo1.lines.add(format('%d ', [m]));    end;  end;end;
[解决办法]
探讨

procedure TForm1.Button1Click(Sender: TObject);
var
m,i:integer;
begin
for m:=101 to 200 do
  for i:=2 to trunc(sqrt(m)) do
  if m mod i=0 then
  break;
  if i>=trunc(sqrt(m))+1 then
  begin
……

[解决办法]
memo 可以设置 滚动条