[@Rafa3L]

1):

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 s: string;
 b: integer;
begin
 s:= Edit1.Text;
 b:= Pos(';', s);
 Label1.Caption:=
  'Before: '  + IntToStr(b-1) +
  ', after: ' + IntToStr(Length(s)-b);
end;