Program Fungsi String Pada Delphi (LEFT,MID,RIGHT)

if Button1.Caption='Proses' then begin
  if Length(Edit1.Text) <> 0 then begin
    // Fungsi Left untuk mencari jabatan
    Edit2.Text:=LeftStr(Edit1.Text,2);

    //Fungsi Untuk Mencari Bagian / Bidang seorang karyawan
    Edit3.Text:=MidStr(Edit1.Text,4,2);

    // Fungsi Right untuk mencari Nomor Urut Karyawan
    Edit4.Text:=RightStr(Edit1.Text,2);

    Button1.Caption:='Ulangi';
  end; //end if
end //end if button1
else if Button1.Caption='Ulangi' then begin
  bersihkan;
  Edit1.SetFocus;

  Button1.Caption:='Proses';
end; // end else if