Label ist keine gültige Integerwert

[scuby]

Delphi-Quellcode:

repeat
begin
lfdnr := lfdnr + 1;
while not Query1.Eof do
begin
buffer:= query1.Fieldbyname ('LFDNR').AsString;
buffer1 := strtoint(buffer);
if (buffer1 = lfdnr)then
begin
query1.Next;
end
else
begin
k := inttostr(lfdnr);
Form4.Label14.Caption := k;
end;
end;
end;
until Query1.Eof;

Wenn ich diese Anweisung ausführe, kommt Folgende Fehlermeldung:
Label ist kein gültiger Integerwert, aber wo soll denn hier ein Label ein Integerwert sein??

THX
Scuby