var Pid, command, x, anstdatum: string;
  Telnr: integer;
begin
  try
    Pid := textbox1.text;
    Telnr := int32.parse(textbox2.text);
    anstdatum := textbox3.text;
    x := '''';
    Suntripdb.open;
    try

      mittinsert := bdpcommand.create(command, suntripDB);
      mittinsert.executenonquery;

      if textbox3.text<>'' then
       begin
     command := 'UPDATE Personal SET telefon=' + x + telnr.tostring + x +'WHERE pid=' + x + pid + x;
    mittinsert := bdpcommand.create(command, suntripDB);
        mittinsert.executenonquery;
    end;

      label5.Text := 'Du har lyckats ändra telefon nummer till ' + telnr.tostring;
     finally
      suntripdb.close;
    end;
  except on
    system.FormatException do
      label5.text := 'Felaktig inmatning';
  end
end;