unit prim;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    ScrollBar1: TScrollBar;
    Memo1: TMemo;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure ScrollBar1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  current_value:word;
  counter:word;
  check:boolean;
  lap_test:word;
  max_value:word;

implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  Edit1.Text:=IntToStr(ScrollBar1.Position);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  max_value:=ScrollBar1.Position;
  current_value:=1;
  while current_value<max_value do
  begin
    check:=true;
    for lap_test:=2 to round(current_value/2) do
    begin
      if current_value mod lap_test=0
      then
      begin
        check:=false;
      end;//end of then
    end;//end of for
    if check=true
    then
    begin
      Memo1.Text:=Memo1.Text+IntToStr(current_value)+' ';
    end;
    current_value:=current_value+2;                                             //nach der 2 nur ungerade Zahlen testen
  end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Memo1.Clear;
end;

end.