var Pid, command, x, anstdatum: string;
  Telnr: integer;
begin
  try
    Pid := textbox1.text;
    Telnr := int32.parse(textbox2.text);
    anstdatum := textbox3.text;
    x := '''';
    Suntripdb.open;
    if textbox3.text<>'' then
    command := 'UPDATE Personal SET telefon=' + x + telnr.tostring + x +'WHERE pid=' + x + pid + x;
    try
      mittinsert := bdpcommand.create(command, suntripDB);
      mittinsert.executenonquery;
      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;