[Error]

Хочу написать тест:

procedure TForm1.Button1Click(Sender: TObject);
var k:????????;
begin
k:=??????ToStr(Edit1.Text);
if k=a
then Label1.Caption:='Правильно!'
Else Label1.Caption:='Не правильно'
end;

Что нужно?