Miscellany

procedure TMainWindow.ValtozasTimer(Sender: TObject);
begin
  Uservaltozas.Open;
  UserValtozas.Locate('Nev','+quotedstr(Label1.Caption)+',[]);
  if UserValtozas.FieldByName('Valtozas').AsInteger = 1 then
    begin
      Lekerdezes.Edit;
      Panel14.Color:=clRed;
      Panel15.Color:=clGreen;
      Label2.Caption:=Lekerdezes.FieldByName('Gep').AsString;
      Label3.Caption:=Lekerdezes.FieldByName('Felhasznalo').AsString;
      Szamlak.Refresh;
      Lekerdezes.Post;

      UserValtozas.Edit;
      UserValtozas.FieldByName('Valtozas').AsInteger:=0;
      UserValtozas.Post;
    end
  else
    begin
      Panel14.Color:=clMaroon;
      Panel15.Color:=clLime;
    end;
end;