Lazarus - parse function based on delimiter

I am building a small app in Lazarus and need a parse function based on the underscore. For example:

array := Split(string, delimiter开发者_StackOverflow社区);

So string = "this_is_the_first_post" and delimiter is the underscore resulting in the array being returned as:

array[0] = this
array[1] = is
array[2] = the
array[3] = first
array[4] = post

Any one has any idea how to go about this? I have tried a few code examples and it always throws an error.

Thanks.

You can use the following code:

var
  List1: TStringList;    
begin
  List1 := TStringList.Create;    
  try
    List1.Delimiter := '_';
    List1.DelimitedText := 'this_is_the_first_post';

    ShowMessage(List1[0]);
    ShowMessage(List1[1]);
    ShowMessage(List1[2]);
    ShowMessage(List1[3]);
    ShowMessage(List1[4]);
  finally
    List1.Free;
  end;
end;

In this example the output will be shown as a set of messages but you get the general idea.