, выдаёт ошибку fatal:syntax error, ":" expected but ";" found implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var k; integer; (здесь выдаёт ошибку )
s1, s2: string;
begin
k:=Utf8lengths( Edit1.text);
Edit2.text:=Edit1.text + Edit1.text;
Edit3.text:= Utf8copy(Edit1.text,1,1);
s1:= Edit3.text;
s1:=k+s1;
end;

end.