Обьясните почему тут ошибка?

[ImmortalAlexSan]

В таком случае, вам не надо использовать strtoint. Правильный код для второй задачи будет таким:

procedure TForm1.Button1Click(Sender: TObject);
Var k:string;
begin
k:=Edit1.text;
if k='ваш текст проверки'
then Label1.Caption:='Авторизован'
else Label1.Caption:='Не авторизован';
end;

[Skorpion555]

Спасибо, я так уже пробовал, но ступил, с этими переменными и с Label1 перемудрил, сначала хотел невидимой сделать, чтобы потом появлялась, а потом поставил чтобы текст просто менялся, в результате все получилось невидимое, и я не мог понять в чем проблема.