Сортировка по полю (разделение на три категории)

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var s:string;
  begin
if column.Index=1 then  //номер поля
s:='+ '+copy(MyQuery1.FieldByName('id').AsString,1,1);
if column.Index=2 then
s:='+ '+copy(MyQuery1.FieldByName('id').AsString,2,1);
if column.Index=3 then
s:='+ '+copy(MyQuery1.FieldByName('id').AsString,3,1);
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, s);
end;

for i := 1 to Length(s) do
    if s[i] = ':' then
      k:=k+1 ;

var
arr: Array[1..4] of String = ('BEGINWORK', 'ENDWORK', 'SHOWMODAL END', 'END');
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, k: Integer;
  s: String;
  sLeft: String;
begin
  s:= Edit1.Text;
  for k:= 1 to Length(arr) do
  begin
    i := pos(arr[k], s);
    if i > 0 then
      begin
        sLeft := copy(s, 1, i - 1);
      end;
   end;
    ShowMessage(sLeft);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i, k: Integer;
s, sLeft, sRight: String;
begin
  s:= Edit1.Text;
  for i := 1 to Length(s) do
    if s[i] = ':' then begin
      sLeft  := copy(s, 1, i - 1);
      sRight := copy(s, i + 1, Length(s) - i);
    end;
  ShowMessage(sRight);
end;