Raised exception class 'External:SIGSEGV'

[asdf]

After runned..

Project Project1 successfully built.

There was an error message ..

Project Project1.exe raised exception class 'External:SIGSEGV'. What is this?

 

[asdf]

This problem came after I tried to use the examples came with Lazarus ..
1.  lazarus/examples/gridcelleditor/gridcelleditor.lpi
     I love this example, it runs with no problem.
2.  lazarus/examples/grid_semaphor/example/project1.lpi
     I also love this example, it also runs with no problem.
3.  After that I created a new project....
     First I copied everything from number 1.
     But I replaced TStringGrid1 with Semaphoregrid1.

There was such an error.

Please help.

[asdf]

The problem is over here:

procedure TForm1.FormCreate(Sender: TObject);

var
  y: Integer;
  x: Integer;
  strlist1: tstringlist;

begin
 // Fill the combobox
 strlist1.Create;
 strlist1.CommaText:='ABCD,DEFG, HIJK';
 if strlist1 <> nil then
 begin
 combobox1.Items.Assign(strlist1);
 strlist1.Free;
 end;                               

At what line should be edited?

[DirkS]

Don't know if it causes the exception, but

Code: [Select]

strlist1.Create;
should be

Code: [Select]

strlist1 := TStringList.Create;
Gr.
Dirk.